[AccessD] How to Rename a flat file with Access VBA

William Benson (VBACreations.Com) vbacreations at gmail.com
Fri Jun 24 08:36:54 CDT 2011


Typo, sorry. BTW Gary's way is much shorter, but if you read up on
FileSystemObject you will see a lot of neat things you can do with it:  

Dim FSO as Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Fil as Obj

Set Fil =FSO.GetFile( yourpath )

Fil.Name = Replace$(Fil.Name,".tbl",".txt")


Also, if you use early binding and set a reference in your project to
Microsoft Scripting Runtime (which every Windows PC will have) - there are a
lot of other file and folder properties you can mess with and intellisense
will guide you:


Dim FSO as FileSystemObject
Set FSO = New FileSystemObject 

Dim Fil as File

Set Fil =FSO.GetFile( yourpath )

Fil.Name = Replace$(Fil.Name,".tbl",".txt")



-----Original Message-----
From: William Benson (VBACreations.Com) [mailto:vbacreations at gmail.com] 
Sent: Friday, June 24, 2011 9:27 AM
To: Access Developers discussion and problem solving
Subject: RE: [AccessD] How to Rename a flat file with Access VBA

Dim FSO as Object
Set FSO = CreateObject("Scripting.FilsSystemObject")
Dim Fil as Obj

Set Fil =FSO.GetFile( yourpath )

Fil.Name = Replace$(Fil.Name,".tbl",".txt") 



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Brad Marks
Sent: Friday, June 24, 2011 8:45 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] How to Rename a flat file with Access VBA

All,

We just installed some EDI software that creates a number of flat files.

There is one file that is a text file but the extension is .tbl

I would like to link to this file with Access 2007, but I am running into
problems because of the .tbl extension.

For the short term, I am simply renaming the file outside of Access.
This works, but I would prefer to do the renaming inside of Access.

Is there a way to use VBA to rename flat files.

Example -
Old name = C:\EDI\Outbound.tbl
New name = C:\EDI\Outbound.txt

I figure that this is pretty easy to do, but I have never done it and I have
not found an example of how to do it.

Thanks in advance for your assistance.

Brad      

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




More information about the AccessD mailing list