[VB6] rename file

[grendy]

Salve,
mi servirebbe una funzione che prende tutti i file in una cartella (file di qualsiasi tipo) e li rinomini a secondo delle instruzioni dell'utente
esempio: rename "j fa-005.jpg" in "jfa005.jpg"
in realta a me basta levare i seg. caratteri dal nome del file:
" " spazio
"-" meno
"_" trattino
"+" piu'
"*" asterisco
chi mi da una dritta

[xegallo]

Originariamente inviato da grendy

chi mi da una dritta

name vecchiopercorso, nuovo percorso

[grendy]

si ... ma come faccio a prendere il nome del file e a salvarlo col nuovo???

[grendy]

per intenderci qualcosa simile a rename ma molto piu' semplice

[Mabi]

Originariamente inviato da grendy
si ... ma come faccio a prendere il nome del file e a salvarlo col nuovo???

Il nuovo nome del file lo decidi tu e lo imposti con l'istruzione Name.

Originariamente inviato da grendy
in realta a me basta levare i seg. caratteri dal nome del file:
" " spazio
"-" meno
"_" trattino
"+" piu'
"*" asterisco

Questo puoi farlo con la Replace.
Togliere l'asterisco è inutile perchè il nome di un file non lo può contenere.

Const VecchioPercorso As String = "C:\File -_+.txt"
Dim NuovoPercorso As String
Dim Messaggio As VbMsgBoxResult

Open VecchioPercorso For Output As #1
Close #1

NuovoPercorso = VecchioPercorso
NuovoPercorso = Replace(NuovoPercorso, " ", "")
NuovoPercorso = Replace(NuovoPercorso, "-", "")
NuovoPercorso = Replace(NuovoPercorso, "_", "")
NuovoPercorso = Replace(NuovoPercorso, "+", "")

If Len(Dir(NuovoPercorso)) = 0 Then
  Name VecchioPercorso As NuovoPercorso
Else
  Messaggio = MsgBox("File già esistente" & _
  vbCrLf & vbCrLf & "Sostituirlo ?", _
  vbQuestion + vbYesNo)
  
  If Messaggio = vbYes Then
    Kill NuovoPercorso
    Name VecchioPercorso As NuovoPercorso
  Else
    Kill VecchioPercorso
  End If
End If

[cassano]

NuovoPercorso = Replace(NuovoPercorso, " ", "")

devo vedere nel manuale c'era una funzione per farlo insieme

forse instr ???
bo se ho tempo vedo

[Mabi]

Originariamente inviato da cassano
devo vedere nel manuale c'era una funzione per farlo insieme

Fare cosa ?