WRITE DATA TO TEXT FILE SAVED WITH ".TIF" EXTENSION USING VBA

[Gemini07306]

HELP ANYONE!!!
I AM WORKING ON FAIRLY SIMPLE PROJECT, USING VBA.
THIS IS A BREIF EXPLANATION OF WHAT I WANT TO ACCOMPLISH.
A DOCUMENT WAS SCANNED AND SAVE AS: C:\IMAGE\FILE.TIF.
I HAVE A FILE WITH RESIDES IN ACCESS 97 DATABASE. THE FILE CONTAINS FIELDS, SUCH AS 'BATCH NO'. THIS BATCH NO FIELD HAS NUMERIC VALUES, SUCH AS '00004811'.
PROBLEM: I NEED TO APPEND THE 'BATCH NO' VALUE OF '00004811' TO THE FILE "C:\IMAGE\FILE.TIF" SO THE THE FILE BECOMES: "C:\IMAGE\FILE.00004811.TIF". HOW CAN I WRITE A CODE IN VBA MODULE, SO THAT THE 'BATCH NO' IS PICKED UP FROM THE ACCESS TABLE AND APPENDED TO THE "C:\IMAGE\FILE.TIF?

ANY HELP WILL BE GREATLY APPRECIATED.
THANKS.

 

[PHV]

Take a look at the Name instruction:
Name oldpathname As newpathname

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[BrianLW]

Try:
[tt]
strFile = "C:\IMAGE\FILE.TIF"
strBatch = "00004811"

strArray() = Split(strFile, ".&quot

strFile = strArray(0) & "_" & strBatch & "." & strArray(1)

Name strOldFile as strfile
[/tt]