[VBS] Ricerca e rinomina Files in Folder

[fosforo]

Ciao a tutti.
So che come argomento e' banale e ipertrattato ma nonostante abbia cercato a lungo nn ho trovato nulla che mi aiuti.
Ho una cartella con centinaia di file e dovrei cercare una decina di file da rinominare.
Il mio file ha un nome tipo : pippo ciao ciao_A1.txt
pippo ciao ciao_A2.txt
pippo ciao ciao_A3.txt
etc etc
e dovrei rinominarli come:
pippo ciao ciao_rr1.txt
pippo ciao ciao_rr2.txt
pippo ciao ciao_rr3.txt
etc etc.
Sto creando uno VBS che rinomini il file dando il nome come argomento.
Ho creato questo per risolvere il problema degli spazi tra l'argomento:
For I = 0 to objArgs.Count - 1
Name(I) = objArgs(I)
FileName=FileName & " " & Name(I)
Next

e funziona.
Ora non so come risolvere il problema di cercare tutti i file pippo all'interno della cartella x rinominarli.

Grazie

[gibra]

Devi usare gli oggetti del FileSystemObject
Folder, File, ...
etc...

http://technet.microsoft.com/it-IT/scriptcenter/

esempi cercando "file rename"
http://gallery.technet.microsoft.com...t=Visual+Basic

il primo della lista
http://gallery.technet.microsoft.com...0-2a93eb4bef7e

[fosforo]

Grazie gibra
Ma questi rinominano tutti i file mentre io dovrei rinominare solo i file passati con l'argomento.
Ho scritto questo ma non funziona molto bene:

Dim ArgObj, var,NameFile,Name(300),FileName
Dim fso, fldr, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("MioFolder")
Num = 0

'Input argomento + controllo spazi nome
Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
' WScript.Echo objArgs(I)
Name(I) = objArgs(I)
FileName=FileName & " " & Name(I)
Next

' NomeFile senza Path
TextLen = Len(FileName)
lngPos = InstrRev(FileName, "\")
FileName = Right (FileName, ( TextLen - lngPos))

' ---------------------------------------------------------------------------------
For Each f In fldr.Files

If f.Name = Left(FileName,Len(FileName)-5)& Num & ".wav" Then
f.Name = Replace(FileName, "A" & Num, "A" & num+10)
Num = Num +1
End If

Next

Set fso = Nothing
Set fldr = Nothing
Set f = Nothing

[gibra]

Originariamente inviato da fosforo
Ho scritto questo ma non funziona molto bene:

Che facciamo:
- indoviniamo dove e come non funziona molto bene?
- oppure ce lo sveli tu?

[Vinsent]

Mi hai fatto venire in mente una cosa da aggiungere al mio programma, per ora ho abbozzato questo:

        Dim testo_vecchio As String = TextBox_vecchio_testo.Text
        Dim testo_nuovo As String = TextBox_nuovo_testo.Text
        Dim testo_definitivo As String = ""
        Dim cartella As New IO.DirectoryInfo(percorso)
        Dim file_ As IO.FileInfo() = cartella.GetFiles
        Dim nome_file As IO.FileInfo
        For Each nome_file In file_
            If nome_file.ToString.Contains(testo_vecchio) = True Then
                testo_definitivo = nome_file.ToString.Replace(testo_vecchio, testo_nuovo)
                MsgBox("Vecchio:   " & nome_file.ToString & vbCrLf & _
                   "Nuovo:   " & testo_definitivo)
            End If
        Next

Vedi tu se ti può servire.
ciao