File System Object is your new friend now.....
and some examples
Dim fso as Object
Dim folder As Object
Dim files As Object
Dim file As Object
Dim myFile As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(Data_Folder) Then fso.CreateFolder (Data_Folder)
fso.CopyFile SourceFolder & OldFileName, Destination_Folder & NewFileName
Set folder = fso.GetFolder(Search_Folder)
Set files = folder.files
For Each file In files
Next
fso.deletefolder (Data_Folder), True
Set file = fs

penTextFile(App_Folder & "Collection_AutoUpdate.log", 8, 0)
my_Text = Date & " " & Time() & Chr(10) & my_Text
file.writeline (my_Text)
file.Close
Set f = fso.getfile(Data_Folder & FileName)
Set ts = f.OpenAsTextStream(1, -2)
S = ts.ReadLine
ts.Close
msgbox f.DateLastModified)
and many more if you search for FileSystemObject Object