• Home
 · 
• Files/File Controls/Input/Output
 · 
• Prompt a user to rename a file thats on your desktop.

Prompt a user to rename a file thats on your desktop.

Prompt a user to rename a file thats on your desktop.

Rate Prompt a user to rename a file thats on your desktop.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

On Error GoTo Exception_Handler:
Dim PreviousFileName, NewFileName As String
PreviousFileName = "C:\Windows\Desktop\File1.txt"
NewFileName = InputBox("What do you wish to rename " & PreviousFileName & "?", "Rename File")
NewFileName = "C:\Windows\Desktop " & "\" & NewFileName & ".txt"
Name PreviousFileName As NewFileName
Exit Sub
Exception_Handler:
MsgBox Err.Description, vbCritical, "Error"