Sub ShowFolderInfo()
Dim fs, myfolder, myfiles
Const MyPath = "c:\temp"
Set fs = CreateObject("Scripting.FileSystemObject")
Filename = UCase(ThisWorkbook.Name)
If Right(Filename, 3) <> "XLS" Then
MsgBox ("File does not exist because Wrokbook was not saved")
End If
Set ThisFile = fs.getfile(ThisWorkbook.Name)
Thisdate = ThisFile.datelastmodified
Set myfolder = fs.GetFolder(MyPath)
For Each Filename In myfolder.Files
If UCase(Right(Filename.Name, 3)) = "XLS" Then
datemodified = Filename.datelastmodified
If datemodified > Thisdate Then
'enter your code here
End If
End If
Next Filename
End Sub
"SteveDB1" wrote:
> Hello folks.
> I'm trying to develop a multi-stage macro that will access a group of files,
> and look at the last saved date. If that date is more recent than the file
> the macro is calling from, I want to open, and then copy a portion of the
> second file into the first.
> We've purchased the WROX Excel 2007 VBA programmer's reference manual, but
> I'm not able to readily identify the information I'm seeking to accomplish
> the above.
>
> So, at this point, I want to accomplish the following:
> 1- have the code to look at the save date in the properties of fileB.
> 2- if that date is more recent than the last save date of fileA, open fileB.
>
> does anoyone know where I can look in the programmer's reference book to
> learn more on how to perform this?
> Or, how to do this?
> Thank you.
> Best.
|
Similar Threads
