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?
Analysierte anzeigen - Nur Nachrichtentext zeigen
User-Agent: Microsoft-Entourage/11.3.3.061214
Date: Wed, 04 Jul 2007 14:22:13 -0400
Subject: Re: code to move files created between two dates to folder B?
From: Russ <drsN0SPAMmi...@hotmailD0Tcom.INVALID>
Message-ID: <C2B15D95.1A949%drsN0SPAMmikle@hotmailD0Tcom.INVALID>
Thread-Topic: code to move files created between two dates to folder B?
Thread-Index: Ace+aD4IfNAQKCpbEdyKbQADk6v0Mg==
References: <eEBS2KmvHHA.4552@TK2MSFTNGP03.phx.gbl> <#babfRmvHHA.4916@TK2MSFTNGP04.phx.gbl>
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: 80
Path: g2news1.google.com!news2.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!newshub.sdsu.edu!msrtrans!TK2MSFTFEEDS01.phx.gbl!TK2MSFTNGP01.phx.gbl!TK2MSFTNGP02.phx.gbl
X-Original-Lines: 1         

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