code to move files created between two dates to folder B? - microsoft.public.word.vba.general

Nachricht von Diskussion code to move files created between two dates to folder B?

Russ

Profil anzeigen

Weitere Optionen 4 Jul. 2007, 20:22

Newsgroups: microsoft.public.word.vba.general

Von: Russ <drsN0SPAMmi...@hotmailD0Tcom.INVALID>

Datum: Wed, 04 Jul 2007 14:22:13 -0400

Lokal: Mi 4 Jul. 2007 20:22

Betreff: Re: code to move files created between two dates to folder B?

  Weiterleiten | Drucken | Thread anzeigen
  | Original anzeigen
  | Diese Nachricht melden | Nachrichten dieses Autors suchen
  

Gil,
This will work very quickly in WinWord docs to extract document properties.
http://word.mvps.org/FAQs/MacrosVBA/DSOFile.htm

One of the document properties is for creation date.
Tweak to code found in the .dot template to do what you want.

> 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

--
Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID

Weiterleiten