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

Jim Dettman jimdettman at verizon.net
Fri Jun 24 09:18:33 CDT 2011


Brad,

  Wait till you get into the EDI; it's a lot of fun ;) 

Jim.

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

Thanks for the help, I really appreciate it.

Looks pretty easy (now that I have a sample to start with  :-)

Brad


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William
Benson (VBACreations.Com)
Sent: Friday, June 24, 2011 8:37 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] How to Rename a flat file with Access VBA

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

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

-- 
This message has been scanned for viruses and
dangerous content by MailScanner, and is
believed to be clean.


-- 
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