Change File Extension before importing

[John W]

I've created a database that will take large quantities of delimited text
files and import them to Access. Everything is working fine but I'm
wondering if there's some code that would change the file extension before
importing? The files are all text but they come to us with a .dpr
extension. If it were just a few files it would be no problem to just
change them manually, but I'm dealing with hundreds of files per week. Is
this possible to do?

Thanks!

 

[Klatuu]

Assuming all the files are in the same folder, you can use a combination of
the Dir function and the Replace function to rename all the files that end
with .dpr.

Dim strOldName as String
Dim strNewName as String
Dirm strFullName As String
Const conPath as String = "C:\SomeFolder\"

strFileName = Dir(conPath & "\*.dpr")
Do Until Len(strFileName) = 0
strOldName = conPath & strFileName
strNewName = Replace(strOldName,".dpr", ".txt")
Name strOldName As strNewName
strFileName = Dir
Loop

 

[John W]

This worked perfectly....Thanks for the help!

Assuming all the files are in the same folder, you can use a combination
of
the Dir function and the Replace function to rename all the files that end
with .dpr.

Dim strOldName as String
Dim strNewName as String
Dirm strFullName As String
Const conPath as String = "C:\SomeFolder\"

strFileName = Dir(conPath & "\*.dpr")
Do Until Len(strFileName) = 0
strOldName = conPath & strFileName
strNewName = Replace(strOldName,".dpr", ".txt")
Name strOldName As strNewName
strFileName = Dir
Loop