[VB6] Rinominare tanti file

[master666]

Ciao a tutti.. ho cercato nel forum in cerca di una soluziona al mio quesito, ma non ho trovato una risposta che soddisfi le mie esigenze. stò creando un programma che rinomini tutti i file con estensione ppt (*.ppt) in modo che diventino *.pps (ossia la presentazione). ho letto che per rinominare un file si usa name "percorso\file.ppt" as "percorso\file.pps" ma non funziona con "percorso\*.ppt" as "percorso\*.pps".
Qualche consiglio? grazie e tutti!

[cassano]

usa i filesystemobject ,aggiungili nei riferimenti di vb,poi fai una ricerca su internet,e scoprirai questa classe molto potente.

[master666]

Grazie.. adesso cerco!!

[master666]

Ciao.. ho cercato come mi hai detto la classe FSO.. ma su MSDN ho trovato solo codici per copiare, eliminare, modificare e creare file.. non ho trovato nulla per rinominare dei file.. non è che mi puoi dare qualche dritta.. o al max un link.. Io avevo pensato di fare uso del CopyFile..

Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "c:\marco\*.ppt", "c:\marco\*.pps"

ma mi da errore di run-time n° 5 (chiamata di routine o argomento non valido).. cosa ho sbagliato? grazie dell'aiuto

[Mabi]

Guarda anche questa discussione

[master666]

Ok.. ho visto.. ma quel codice serve a copiare file da una cartella ad un altra.. io volevo rinominare dei file nella stessa cartella..

[Mabi]

:rollo:

Const CartellaOrigine As String = "C:\1\"
Const CartellaDestinazione As String = "C:\2\"
Dim FileName As String
Dim ContFile As Long

FileName = Dir(CartellaOrigine & "*.*", _
           vbHidden + vbNormal + _
           vbReadOnly + vbSystem)
Do Until (Len(FileName) = 0&)
  FileCopy CartellaOrigine & FileName, CartellaDestinazione & FileName
  SetAttr CartellaDestinazione & FileName, GetAttr(CartellaOrigine & FileName)
  Name (CartellaDestinazione & FileName) As (CartellaDestinazione & Left(FileName, Len(FileName) - 3&) & "xxx")
  ContFile = (ContFile + 1&)
  FileName = Dir
Loop
If (ContFile > 0&) Then
  MsgBox "Copiati " & CStr(ContFile) & " file", vbInformation
End If

In questo modo copi i file da una cartella ad un'altra rinominando poi la loro estensione.

[master666]

ah.. grazie.. sai.. non sono troppo esperto con queste cose.. stavo provando a modificare qualcosa nel codice, ma senza risultato.. grazie ancora!

[Mabi]

No, non c'è nessun problema.
Se non ti è chiaro qualcosa o non va bene il tipo di procedimento dimmelo pure.

[master666]

Perchè mi dice autorizzazione negata? faccio debug e mi rimanda qui:

  FileCopy CartellaOrigine & FileName, CartellaDestinazione & FileName

perchè?