VBScript copying files from subfolders

[BlackWisdom]

Hi, I have reviewed several topics and replies but cant seem to locate this scenario, if you could point me to a previous topic that would be great. Im trying to get my script to copy files from the PC with a specific extension the first part works (deleting and recreating the folder) the second part does not - I get a permission denied error on Line 6 - and that where it stops, any ideas??

VBSTART
Set filesys = CreateObject("Scripting.FileSystemObject")
If filesys.FolderExists("C:\Temp") Then
filesys.DeleteFolder "C:Temp"
End If
Set CreateNewFolder = filesys.CreateFolder("C:\Temp")
If filesys.FileExists ("c:\*.doc") Then
filesys.CopyFile "c:\*.doc", "C:\Temp"
End If
VBEND
VBRun>

[Bob Hansen]

If filesys.FolderExists("C:\Temp") Then
filesys.DeleteFolder "C:Temp"

You are missing the "\" in the folder you are trying to delete.

Change from "C:Temp" to "C:\Temp"
=============================
Can probably do all of this with MacroScheduler commands and eliminate VB completely.

[BlackWisdom]

I have been looking at the copy command it does not seem to have the capability to scan subfolder during copy, Is there a switch Im not seeing??

[Captive]

Other than the missing \ in c:temp, the help on "CopyFile" says this:

If source contains wildcard characters or destination ends with a path separator (\), it is assumed that destination is an existing folder in which to copy matching files. Otherwise, destination is assumed to be the name of a file to create.

In your posted example, your destination path ("C:\Temp") does not end in a \, and thus it may be trying to create a file with that name... which of course already exists.

If you're still having problems, you may wish to attempt to handle errors regarding read only, file not found, etc... the On Error, and err help in the vbscript is handy. For example, add this below the "VBSCRIPT" line:
On Error Resume Next

In the code itself, you can check for errors, and obtain the err number, and handle it accordingly.

[Bob Hansen]

If filesys.FileExists ("c:\*.doc") Then
filesys.CopyFile "c:\*.doc", "C:\Temp"

Aha, I see you are doing a Copy through the whole tree?

If the VB suggestions don't work for you, then you could do a
"Run Program>....... DIR C:\*.doc /s >> doclist.txt"
then ReadLn> that file, doclist.txt, to get the source file names for the CopyFile command.

[BlackWisdom]

[Bob Hansen]

So what was your final solution?

[BlackWisdom]

I have been working with this VBScript Its supposed to copy only the files in a folder that has a date difference of 1 - basically attempting to copy all the data from the past day. Currently It copies all the files from the previous day. I have attempted several variations including adding the time to the DateDiff the results are the same.


Dim filesys, demofolder, fil, filecoll, filist
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder("C:\test3")
Set filecoll = demofolder.Files

For Each fil in filecoll
if DateDiff("d",fil.DateCreated,Date)=< 1 then
fil.copy("C:\test3\ReadyBack\")
end if
Next

[support]

attempting to copy all the data from the past day. Currently It copies all the files from the previous day.

Is that not the same thing? What is the problem? Please explain.

[BlackWisdom]

I menat it copies all the files from the other folder instead of just the files from the previous day..

[Captive]

Change " =< 1" to " = 1".