[VB6] Rinominare togliendo gli spazi

[miki.]

ho trovato uno script per rinominare i file togliendo gli spazi, solo che ad un certo punto si blocca dicendo che non trova il file e non capisco perchè

lo script

Const cartella = "C:\temp\"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(cartella)
Set objFolderItem = objFolder.Self
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colItems = objFolder.Items
dim nuovo_nome
For Each objItem in colItems
nuovo_nome=objItem.name'replace(objItem.name, " ", "")

objFSO.CopyFile "C:\temp\" & objItem.name , "C:\temp\" & nuovo_nome, True
Next

[oregon]

Quando i programmi si bloccano, forniscono un messaggio d'errore, molte volte, abbastanza esplicito da far capire cosa e' successo.

Vuoi dirci che tipo di messaggio ti viene proposto e in quale riga?

[miki.]

Originariamente inviato da oregon
Quando i programmi si bloccano, forniscono un messaggio d'errore, molte volte, abbastanza esplicito da far capire cosa e' successo.

Vuoi dirci che tipo di messaggio ti viene proposto e in quale riga?

L'Errore è "Impossibile trovare il file"

alla riga
objFSO.CopyFile "C:\temp\" & objItem.name , "C:\temp\" & nuovo_nome, True

comunque praticamente fa quello che deve fare ma rilascia l'errore alla fine. Ho sbagliato io, perchè pensavo copiasse solo una parte dei file.

[ladyBlu]

Ciao Miki.

Il tuo codice rinomina sì i file, ma facendone una copia e non sostituendo il nome. Oltre tutto la Replace funziona bene.

Const cartella = "C:\TEMP\"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(cartella)
Set objFolderItem = objFolder.Self
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colItems = objFolder.Items
    
Dim nuovo_nome
For Each objItem In colItems
    nuovo_nome = Replace(objItem.Name, " ", "")
    
    objFSO.CopyFile "C:\temp\" & objItem.Name, _
                    "C:\temp\" & nuovo_nome, True
    objFSO.DeleteFile "C:\temp\" & objItem.Name
Next

Per evitare di avere una copia del file aggiungi una cancellazione del file appena copiato col nuovo nome (vedi righe in rosso)



Buon lavoro