[AccessD] Rename All Files In A Folder

 OK. . .

 BTW is there anything like the following
 in Access 2000 VBA to do the following ?

     With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = InchesToPoints(0.7)
        .BottomMargin = InchesToPoints(0.6)
        .LeftMargin = InchesToPoints(0.5)
        .RightMargin = InchesToPoints(0.4)
        .Gutter = InchesToPoints(0)
        .HeaderDistance = InchesToPoints(0)
        .FooterDistance = InchesToPoints(0)
        .PageWidth = InchesToPoints(8.5)
        .PageHeight = InchesToPoints(11)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .GutterPos = wdGutterPosLeft
    End With



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of jwcolby
Sent: Thursday, April 17, 2008 6:44 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Rename All Files In A Folder


 > Please ignore email about renaming, blonde moment came to an end......

 >  Please share the answer. . . .

Brown hair coloring?

;-)

Edward S Zuris wrote:
>  Please share the answer. . . .
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of
> paul.hartland at fsmail.net
> Sent: Thursday, April 17, 2008 4:26 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Rename All Files In A Folder
> Importance: High
>
>
> Please ignore email about renaming, blonde moment came to an end......
>
>
> Message Received: Apr 17 2008, 12:23 PM
> From: paul.hartland at fsmail.net
> To: "accessd"
> Cc:
> Subject: [AccessD] Rename All Files In A Folder
>
> To all,
>
> Sorry about the post, I am sure that I have done this before and is simple
> but having a blonde day today (no offence to any blondes out there).....I
> want a function so that I can pass a folder location and two strings to,
> then the function to rename all the files that contain stringA in them to
> stringB. For example say I have a folder called staff, and inside that
> folder contained a file called 999999_ThisIsAnExample. I want to pass
Staff,
> 999999, 999998 to the function so that 999999_ThisIsAnExample would become
> 999998_ThisIsAnExample and do the same with any other file in that folder
> that had a 999999 in the filename.
>
> Thanks in advance for any help on this.
>
>
> Paul Hartland
> paul.hartland at fsmail.net
> 07730 523179
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
>
>
>
> Paul Hartland
> paul.hartland at fsmail.net
> 07730 523179
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>

--
John W. Colby
www.ColbyConsulting.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com