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

User-Agent: Microsoft-Entourage/11.3.3.061214
Date: Wed, 04 Jul 2007 15:05:01 -0400
Subject: Re: code to move files created between two dates to folder B?
From: Russ <drsN0SPAMmi...@hotmailD0Tcom.INVALID>
Message-ID: <C2B1679D.1A94D%drsN0SPAMmikle@hotmailD0Tcom.INVALID>
Thread-Topic: code to move files created between two dates to folder B?
Thread-Index: Ace+aD4IfNAQKCpbEdyKbQADk6v0MgABfqm4
References: <eEBS2KmvHHA.4552@TK2MSFTNGP03.phx.gbl> <#babfRmvHHA.4916@TK2MSFTNGP04.phx.gbl> <C2B15D95.1A949%drsN0SPAMmikle@hotmailD0Tcom.INVALID>
Mime-version: 1.0
Content-type: text/plain;
	charset="US-ASCII"
Content-transfer-encoding: 7bit
Newsgroups: microsoft.public.word.vba.general
NNTP-Posting-Host: c-68-61-239-42.hsd1.mi.comcast.net 68.61.239.42
Lines: 1         
Path: g2news1.google.com!news2.google.com!newshub.sdsu.edu!msrtrans!TK2MSFTFEEDS01.phx.gbl!TK2MSFTNGP01.phx.gbl!TK2MSFTNGP06.phx.gbl

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