Just need some code srcubbing

[Councilk]

Hello all

I've been working on code where I need to copy all files from a master folder

Folder1 to Folder1 in a new location

Once these files are copied, I need to create a new folder named folder1 with the time a date of creation

I used the createfolder object and "NOW" as part of the naming scheme.

See script below...

'==========================================================
Sub Copy_Folder()
'This example copy all files and subfolders from FromPath to ToPath.
'Note: If ToPath already exist it will overwrite existing files in this folder

'if ToPath not exist it will be made for you.

Dim FSO As Object
Dim FromPath As String
Dim ToPath As String

FromPath = "\\Server1\Apps\CNSDB" '<< Change
ToPath = "\\Server2\Apps\CNSDB" '<< Change

'If you want to create a backup of your folder every time you run this macro
'you can create a unique folder with a Date/Time stamp.
'ToPath = "\\Server1\Ron\" & Format(Now, "yyyy-mm-dd h-mm-ss")

If Right(FromPath, 1) = "\" Then
FromPath = Left(FromPath, Len(FromPath) - 1)
End If

If Right(ToPath, 1) = "\" Then
ToPath = Left(ToPath, Len(ToPath) - 1)
End If

Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(FromPath) = False Then
MsgBox FromPath & " doesn't exist"
Exit Sub
End If

Wscript.echo("File Object has been initialized")

FSO.CopyFolder Source:=FromPath, Destination:=ToPath
MsgBox "You can find the files and subfolders from " & FromPath & " in " & ToPath

End Sub

 

[dm4ever]

What is your question/request exactly?

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[PHV]

VBS doesn't have a builtin function named Format like VBA.
You have to replace this:
Format(Now, "yyyy-mm-dd h-mm-ss")
with some code using the Year, Month, Day ... functions.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Councilk]

Okay thanks for the feedback and I was able to work through this problem

 

[PHV]

FSO.CopyFolder Source:=FromPath, Destination:=ToPath
Furthermore, VBS don't like named parameters ...

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Councilk]

Okay PHV I was able to get the name to reflect the month and year. Thanks for your suggestions....