home recent topics recent posts search faq
Home » Scripting » Help: Create folder and copy files into folder Messages in this topic - RSS
|
8/25/2011 8:05:53 PM
cmei83
cmei83
Posts 1 		Hi, I am new to VBS and i would like to copy some files into newly created folders on specific time.
I tried the below scripts but it seems not working.

The scripts enable me to create folder but it stop there without proceed to copy files.
Can any 1 help me here? Million thanks.

dtcomputername = InputBox("Computername: ")
dtmStart = InputBox("Enter start time: ")
dtmEnd = InputBox("Enter end time: ")
dtmStart = CDate(dtmStart)
dtmEnd = CDate(dtmEnd)

'strsource1 = "\\" & dtcomputername & "\c$\logs\Astra"
strfolder1 = "C:\Documents and Settings\mchong4\Desktop\LogPack\Astra"
Set objFSO=CreateObject("Scripting.FileSystemObject")
objFSO.CreateFolder strfolder1

strsource1 = "\\" & dtcomputername & "\c$\logs\Astra"
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strsource1)
strDirectory = "C:\Documents and Settings\mchong4\Desktop\LogPack\Astra"
For Each objFile in objFolder.Files
dtmFileDate = objFile.DateLastModified
If dtmFileDate > dtmStart And dtmFileDate < dtmEnd Then
objFile.Copy "C:\Documents and Settings\mchong4\Desktop\LogPack\Astra", True
Else
End If
Next
pages: 1
|
Home » Scripting » Help: Create folder and copy files into folder