Thank you so much ... I'll give it a shot tonight!!!!!!!!!!!

On Mon, 6 Dec 2004 10:11:10 -0500, "Rick Rothstein"
 wrotf:

>> I needed to write a small program to rename all filenames in a
>> directory which had spaces in their names, to replace the spaces with
>> underscores.
>>
>> It was written without issue, but I had to resort to outputting the
>> RENAME statements (DOS compatible) into a batch file.  Then running
>> the batch file.
>>
>> Does anyone know exactly how to rename A$ to B$ under Visual Basic
>> v6.0 running Windows XP?
>
>VB has a "Name...As...." statement that will rename files. Here is a
>basic (no pun intended) subroutine that will rename all files in a given
>directory as you requested (changing spaces to underscores).
>
>Sub ReplaceFileNameSpacesWithUnderScores(DirectoryPath As String)
>  Dim FileName As String
>  ' Make sure path end with a back slash character
>  If Right$(DirectoryPath, 1)  "\" Then
>    DirectoryPath = DirectoryPath & "\"
>  End If
>  ' Use Dir$ function in a loop to visit each file in directory
>  FileName = Dir$(DirectoryPath & "*.*")
>  Do While Len(FileName) > 0
>    Name DirectoryPath & FileName As _
>         DirectoryPath & Replace(FileName, " ", "_")
>    FileName = Dir$
>  Loop
>End Sub
>
>Note, however, that you can't call this subroutine from any code that
>uses the Dir function within its own looping structure, such as
>attempting to use Dir$ to get the directory names on a drive one-by-one
>and renaming each file within each directory as they are found (the file
>specification settings between the two alternating Dir$ statement calls
>would interfere with each other).
>
>Rick - MVP
---
þ RIMEGate(tm)/RGXPost V1.14 at BBSWORLD * Info{at}bbsworld.com

---
 * RIMEGate(tm)V10.2áÿ* RelayNet(tm) NNTP Gateway * MoonDog BBS
 * RgateImp.MoonDog.BBS at 12/6/04 12:06:24 PM