You might try this:

Private Sub cmdMkDir_Click()
    Dim newFOL As String
    Dim sToFolder As String

sToFolder = "\\resrslavingt002\u_datacentre\HRM\Projects\Exist ing Projects\0TEST0\"

    newFOL = "\\resrslavingt002\u_datacentre\MM" & " \ " & txtHrmRef & " - " & txtName & " - " & txtBenCode
    'On Error Resume Next

    Set objFSO = CreateObject("scripting.filesystemobject")
    Set objFolder = objFSO.CreateFolder("\\resrslavingt002\u_datacentr e\HRM\Projects\Existing Projects\0TEST0\")
    Set objCopyFolder = objFSO.copyfolder("\\resrslavingt002\u_datacentre\ HRM\Projects\New Project Templates\NEW HRM TEAM JOB AID\*", sToFolder, False)

End Sub


mmcdonal

no difference im afraid

Just use this:

Dim objCopyFolder



mmcdonal

Hi Mary
That causes a error "object required" i think i will just leave it with the "error resume" as it is doing all that i need it to.

Another question - When i create a folder, it takes info from 3 different fields if all the fields are not filled in then i cannot delete that folder in explorer it tells me that "cannot read from source file or disk", all three fields are not required to be filled out.

any ideas?
thanks for your help so far.

Check the values first:


Dim txtHrmRef, txtName, txtBenCode As String
(I am not sure where you are getting the data)

If IsNull(txtHrmRef) Or txtHrmRef = "" Then
   txtHrmRef = "-" ' or some other value
End If

etc

newFOL = "\\resrslavingt002\u_datacentre\MM" & " \ " & txtHrmRef & " - " & txtName & " - " & txtBenCode

This allows you to substitute a value for the string if it is empty or null.

HTH

mmcdonal

i will try that, just to say i really appreciate all your expertise on this,
have a nice weekend
Jonni