|
|
microsoft.public.word.vba.general |
Gil, One of the document properties is for creation date. > Dim strDefFilePath As String, strFileToCopy As String > strSourcePath = "c:\Patients\AMR\" > strSourcePath = "" ' identify folderA > ' ... but it needs to move over up to 10 jpg files > :) > "gil" <gil...@bellsouth.net> wrote in message > ? Possibly something like: > Dim date1 As String > date1 = Selection.Text > ' navigation code to new selection > Dim date2 As String > date2 = Selection.Text > Dim folderA As String > ' identify folderA > Dim folderB As String > ' identify folderB > ' ??? Object.MoveFile Source, Destination > WordBasic.CopyFileA folderA ?? FileName:= ??, Directory:=folderB > Cheers & tia > Gil drsmN0SPAMikleAThotmailD0Tcom.INVALID
This will work very quickly in WinWord docs to extract document properties.
http://word.mvps.org/FAQs/MacrosVBA/DSOFile.htm
Tweak to code found in the .dot template to do what you want.
> or something like: --
> Dim strSourcePath As String, strSourceFile As String
> Dim objFSO As Object
> strDefFilePath = "c:\Patients\"
> strFileToCopy = "TorrTod.doc"
> strSourceFile = strSourcePath & strFileToCopy
> strDefFilePath = "" ' identify folderB
> strFileToCopy = "CartSamu.doc" ' but how to identify by date or time?
> strSourceFile = strSourcePath & strFileToCopy
> Gil
> news:eEBS2KmvHHA.4552@TK2MSFTNGP03.phx.gbl...
> Hi All, . I am seeking vba code to MOVE files created between date1 and
> date2 from folderA to folderB?
Russ