Rinominare file senza aprire la cartella di destinazione

[blunotte13]

Ciao a tutti vorrei rinominare un file senza aprire la cartella in cui è salvato, ho cercato di adattare una macro che ho trovato ma ovviamente non ci riesco, la macro è questa

Codice: Seleziona tutto

Dim OldName, NewName
OldName = "nuovo": NewName = NewName = InputBox("Qual è il nome del file da salvare?", "Inserire il nome")
Path = "C:\calcio\"
OldName = "C:\calcio\nuovo.xlsm": NewName = "C:\calcio\ & .xlsm"
Name OldName As NewName ' Sposta e rinomina il file.

vorrei anche sapere se è possibile, oltre a rinominare il file chimato "nuovo" nel nome che desidero, eliminare poi il file "nuovo" una volta cambiato il nome. Grazie.

[Zer0Kelvin]

Ciao.
Unvero pastrocchio, devo dire; sarei curioso di vedere la macro da cui sei partito...
Comunque, per rinominare il file (prendendo per buono il senso del codice che hai postato), tutto quello che servirebbe è questo:

Codice: Seleziona tutto

Dim NewName
    NewName = InputBox("Qual è il nome del file da salvare?", "Inserire il nome")
    If NewName <> "" Then
        Name "C:\calcio\nuovo.xlsm" As "C:\calcio\" & NewName & ".xlsm"
    End If


... e che praticamente non serve a nulla, dal momento che ti permette di rinominare solo quel file (e una sola volta); faresti molto prima a farlo a mano.
Poi, una volta rinominato, non c'e nessun file "nuovo" da cancellare, in file è stato rinominato, non copiato; alla fine della macro c'è sempre e solo un file, ma con un nome diverso.
Cerca di spiegare meglio la tua reale esigenza...

[blunotte13]

Grazie dell'aiuto, la mia esigenza era solo questa, non conoscendo il linguaggio in quanto sono, come si nota, un semplice dilettante, non ero capace a modificare questo pezzo -OldName = "C:\calcio\nuovo.xlsm": NewName = "C:\calcio\ & .xlsm"-, adesso ovviamente funziona !