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, 21:05

Newsgroups: microsoft.public.word.vba.general

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

Datum: Wed, 04 Jul 2007 15:05:01 -0400

Lokal: Mi 4 Jul. 2007 21:05

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

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

Gil,
I also found this code snippet with Google and modified it to return
Creation Date of a file. (Note: .dll will not work in MacWord)
http://officeone.mvps.org/vba.html
I haven't tested in WinWord because I'm using MacWord 2004 at home.

You may have the function return a value as a string or date.

Function GetDateCreated(ByVal FileName As String) As Date
'Function GetDateCreated(ByVal FileName As String) As String
Dim DSO As Object
Dim DPs As Object

Set DSO = CreateObject("DSOleFile.PropertyReader")
Set DPs = DSO.GetDocumentProperties(FileName)
GetDateCreated = DPs.DateCreated
Set DSO = Nothing
End Function

If the function returns as a date you can use the datediff() function to
compare two dates.

> 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

Antwort an Autor Weiterleiten