Nachricht von Diskussion
code to move files created between two dates to folder B?
Reply-To: "gil" <NoG...@EmailAddress.com>
From: "gil" <gil...@bellsouth.net>
Subject: code to move files created between two dates to folder B?
Date: Wed, 4 Jul 2007 13:42:37 -0400
Lines: 136
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_000F_01C7BE41.2EEA7EE0"
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.3138
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3138
Message-ID: <eEBS2KmvHHA.4552@TK2MSFTNGP03.phx.gbl>
Newsgroups: microsoft.public.word.vba.general
NNTP-Posting-Host: adsl-074-167-179-099.sip.ard.bellsouth.net 74.167.179.99
Path: g2news1.google.com!news3.google.com!proxad.net!feeder1-2.proxad.net!213.200.89.82.MISMATCH!tiscali!newsfeed1.ip.tiscali.net!nntp.eutelia.it!feeder.news.tin.it!207.46.248.126.MISMATCH!TK2MSFTFEEDS01.phx.gbl!TK2MSFTNGP01.phx.gbl!TK2MSFTNGP03.phx.gbl
This is a multi-part message in MIME format.
------=_NextPart_000_000F_01C7BE41.2EEA7EE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hi All, . I am seeking vba code to MOVE files created between date1 and =
date2 from folderA to folderB?
? Possibly something like:=20
Dim date1 As String
date1 =3D Selection.Text
' navigation code to new selection
Dim date2 As String
date2 =3D Selection.Text
Dim folderA As String
' identify folderA
Dim folderB As String
' identify folderB
' ??? Object.MoveFile Source, Destination
WordBasic.CopyFileA folderA ?? FileName:=3D ??, Directory:=3DfolderB
=20
Cheers & tia
Gil =20
------=_NextPart_000_000F_01C7BE41.2EEA7EE0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.6000.16481" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#e0dfe3>
<DIV><FONT face=3DArial>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><?xml:namespace =
prefix =3D o ns =3D=20
"urn:schemas-microsoft-com:office:office" /><o:p><FONT face=3D"Times New =
Roman">Hi=20
All, =85 I am seeking vba code to MOVE files created between date1 and =
date2 from=20
folderA to folderB?</P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><o:p><FONT=20
face=3DArial></FONT></o:p> </P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><o:p><FONT =
face=3DArial>? Possibly=20
something like:</FONT> </o:p></P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><o:p><FONT=20
face=3DArial></FONT></o:p> </P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"></FONT></o:p></P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT=20
face=3D"Times New Roman"><SPAN style=3D"mso-spacerun: =
yes"> =20
</SPAN>Dim date1 As String<o:p></o:p></FONT></P><FONT=20
face=3D"Times New Roman"><SPAN style=3D"mso-spacerun: yes">
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT=20
face=3D"Times New Roman"><SPAN style=3D"mso-spacerun: =
yes"> =20
</SPAN>date1 =3D Selection.Text<o:p></o:p></FONT></P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT=20
face=3D"Times New Roman">'<SPAN style=3D"mso-spacerun: yes"> =
</SPAN>navigation code to new selection<o:p></o:p></FONT></P><FONT=20
face=3D"Times New Roman"><SPAN style=3D"mso-spacerun: yes">
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"> =
Dim date2 As=20
String<o:p></o:p></P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"> =
</SPAN>date2 =3D=20
Selection.Text<o:p></o:p></FONT></P></SPAN></FONT>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT=20
face=3D"Times New Roman"> Dim folderA As =
String</FONT></P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT=20
face=3D"Times New Roman">' identify=20
folderA<o:p></o:p></FONT></P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT=20
face=3D"Times New Roman"><SPAN style=3D"mso-spacerun: =
yes"> =20
</SPAN>Dim folderB As String</FONT></P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT=20
face=3D"Times New Roman">' identify folderB</FONT></P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT=20
face=3D"Times New Roman"></FONT> </P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT=20
face=3D"Times New Roman">'<SPAN style=3D"mso-spacerun: yes"> =
???=20
</SPAN>Object.MoveFile Source, Destination<o:p></o:p></FONT></P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT=20
face=3D"Times New Roman"><SPAN=20
style=3D"mso-spacerun: yes"></SPAN><o:p></o:p></FONT></P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><FONT=20
face=3D"Times New Roman"><SPAN style=3D"mso-spacerun: yes"> =20
</SPAN>WordBasic.CopyFileA folderA ?? FileName:=3D ??,=20
Directory:=3DfolderB</FONT></P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><o:p><FONT=20
face=3D"Times New Roman"> </FONT></o:p></P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><o:p>Cheers & =
tia</o:p></P>
<P class=3DMsoNormal style=3D"MARGIN: 0in 0in 0pt"><o:p>Gil =
</o:p></P>
<P class=3DMsoNormal=20
style=3D"MARGIN: 0in 0in =
0pt"><o:p></o:p> </P></FONT></DIV></BODY></HTML>
------=_NextPart_000_000F_01C7BE41.2EEA7EE0--
|
