File Renamer 2

[Fendal]

Hi, All

The Problem:
I have some folders named 1,2,3...(i'll stop there) all the way upto 250, within those folders I have a txt file, eg: folder named 1 has a file named 1.txt and folder 2 has a file named 2.txt and so on.
What I want to do is leave the folder names the same but rename all the *.txt files, does anybody have or know of any code/script that will do this. ?

Preferably in:

VBA(VB 6)
VBScript
JavaScript
C++

My Alternative:
Otherwise I'll have to either move all the *txt files by hand to one main folder and rename them using a mass file renamer program I have, or go into each and every 250 folders and rename them by hand
(as you can guess that won't be much fun).

Thanks for reading, any help,links or code/script would be greatly apprieciated.

 

[gmmastros]

Using vb6, I would recommend you look in to using the File System Object (FSO). The FSO object has functionality to view folders and files that exist on your computer. Searching here (tektips) should give you plenty to start on.

If you run in to any problems, post back here and someone will be able to help you.

-George

Strong and bitter words indicate a weak cause. - Fortune cookie wisdom

 

[tonymce]

Private Sub Form_Load()
Dim fs, f, sf, ff
Set fs = CreateObject("Scripting.FileSystemObject")
'It will take all subfolders in this dir c:\test\ and show the file contents within each folder
Set f = fs.GetFolder("c:\test\")
Set sf = f.subfolders
'
For Each f1 In sf
Set ff = f1.Files
For Each f2 In ff

'You Can use
' fil.Name = "The Name here" & ".txt"
MsgBox f2.Name
'Or use
If f2.Name = "x.txt" Then f2.Name = "c.txt"
Next
Next

End Sub

 

[Fendal]

Thanks alot for the replies,
TonyMce, with some tweaking that code will work perfectly.

Thanks again.

 

[nissan240zx]

http://msdn2.microsoft.com/en-us/library/5w05844e(en-us,vs.80).aspx

or

Private Sub Command1_Click()

Name "c:\vbfiles\b.txt" As "c:\vbfiles\newb.txt"

End Sub

A good programmer is someone who looks both ways before crossing a one-way street. - Doug Linder

 

[BobRodes]

 Dim fs, f, sf, ff

This was probably written in vbscript. More efficient in VB would be to declare the types:

Dim fs as FileSystemObject
Dim f as Folder
Dim sf as Folders
Dim ff as Files

The first code line declares all of the variables as variants, which are best avoided in VB when unnecessary.