Copy file from one Dir to another Dir

[jl39775]

sPath = "c:\Jennifer Files\*.*"
sFileName = Dir$(sPath)


I am trying to copy files from C:\Jennifer Files to x:\accrual files with the following code. I first make a directory then try to copy files. It does not copy files in new directory. Can anyone help with my problem?

Thanks,

James


YYYYMM = Format(Now, "yyyymm")


DirName = Format(Now, "MMMyy")

MkDir "X:\Accrual Files\" & DirName

Do While sFileName > ""
SourceFile = "c:\Jennifer Files\" & sFileName ' Define source file name."
DestinationFile = "X:\Accrual Files\" & sFileName ' Define target file name.
FileCopy SourceFile, DestinationFile & ".txt" ' Copy source to target.
sFileName = Dir$
Loop

 

[jl39775]

OK, It works now. However, I used different code. Look below.


Dim fso As Scripting.FileSystemObject

Set fso = New Scripting.FileSystemObject

YYYYMM = Format(Now, "yyyymm")

DirName = Format(Now, "MMMyy")

MkDir "X:\Accrual Files\" & DirName

fso.CopyFile "c:\Jennifer Files\*.*", "X:\Accrual Files\" & DirName

I hope this helps someone in the future.

James