Zur Google Groups-Startseite    microsoft.public.word.vba.general
Re: code to move files created between two dates to folder B?

gil <gil...@bellsouth.net>

or something like:

Dim strDefFilePath As String, strFileToCopy As String
Dim strSourcePath As String, strSourceFile As String
Dim objFSO As Object

strSourcePath = "c:\Patients\AMR\"
strDefFilePath = "c:\Patients\"
strFileToCopy = "TorrTod.doc"
strSourceFile = strSourcePath & strFileToCopy

strSourcePath = ""     ' identify folderA
strDefFilePath = ""     ' identify folderB
strFileToCopy = "CartSamu.doc"   ' but how to identify by date or time?
strSourceFile = strSourcePath & strFileToCopy

'   ... but it needs to move over up to 10 jpg files

:)
Gil

  "gil" <gil...@bellsouth.net> wrote in message 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?

  ? 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