i need to copy many files with same date from a folder which contains a lot of files to another folder ?
luai25
0
Newbie Poster
Recommended Answers
Jump to PostList the files in a ListFileBox
Loop through the list checking FileDateTime()
Dim i as Integer For i = 0 to File1.ListCount If FileDateTime(File1.List(i)) = "11/05/2010" Then ' Do something here End If Next i
All 3 Replies
purplegerbil
13
Junior Poster in Training
List the files in a ListFileBox
Loop through the list checking FileDateTime()
Dim i as Integer
For i = 0 to File1.ListCount
If FileDateTime(File1.List(i)) = "11/05/2010" Then
' Do something here
End If
Next i
dspnhn
10
Junior Poster in Training
u can use this in between...but modify this first
Set sFileSystemObject = CreateObject("scripting.FileSystemObject")
Set sFileObject = sFileSystemObject.getfile(App.Path & "\" & <filename>)
sFileObject.Copy <newlocation like "D:\> & "\" & <same filename>
vb5prgrmr
143
Posting Virtuoso
Do you need to move the files, or copy the files?
If you need to move them and you were to use purplegerbil's code two posts above use the Name Statement...
Name OldFileName As NewFileName
If you need to copy them, use the FileCopy Statement
FileCopy Source, Destination
Good Luck
Be a part of the DaniWeb community
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.