I have files with a .del extension.

I want to create a module that copies all files
to a new folder and converts the .del extension to
.txt
1. I know how to copy all files from one directory to another
2. I now need to take that directory of files and rename all from *.del to *.txt without knowing or typing each file name.

They are very large files. So I don't want to open them.
thanks

thanks

Dana

There are a bunch of ways to parse the source file name, but this might get it for you:

Sub CopyFiles(strFilesToCopy As String, strDestinationDirectory As String)

    ' Call with CopyFiles "C:\Test\*.del", "C:\Test2"

    Dim strSourceFile As String
    Dim strDestinationFile As String
    Dim strSourceDirectory As String ' "C:\Test\"

    strSourceDirectory = Left$(strFilesToCopy, (InStr(strFilesToCopy, "*") - 1))

    strSourceFile = Dir(strFilesToCopy)

    Do While strSourceFile <> ""

        strDestinationFile = Replace$(strSourceFile, ".DEL", ".TXT")
        FileCopy strSourceDirectory & strSourceFile, strDestinationDirectory & "\" & strDestinationFile

        strSourceFile = Dir

    Loop

End Sub

HTH,

Bob

I don't know if this guy ever got helped with this, but this was very helpful to me. Just wanted to let you know, in case you still checked on this one.

"For whosoever shall call upon the name of the Lord shall be saved." Romans 10:13
I'm glad He said whosoever!