• Home
 · 
• Files/File Controls/Input/Output
 · 
• File Renaming

File Renaming

File Renaming

Rate File Renaming

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Add a Textbox and a Command button

Private Sub Command1_Click()
    Dim Path$
    Dim oFile$, nFile$
    
    Path$ = "D:\"
    oFile$ = "SAMPLE.TXT"
    nFile$ = Text1.Text     '--> enter a new filename into the textbox _
                            with a file extension that you want. e.g., seb.doc
    
    If Dir(Path$ & oFile$) = "" Then
        MsgBox Path$ & oFile$ & " was not found.       ", , "File Not Found"
    Else
        'rename the file
        Shell "cmd.exe /c ren " & Path$ & oFile$ & " " & nFile$, vbHide
        'search if the file has been renamed
        If Dir(Path$ & nFile$) <> "" Then
            MsgBox "Renaming failed!           "
        Else
            MsgBox "The file " & oFile$ & " was successfully renamed to " & nFile$
            End
        End If
    End If
    
End Sub

''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''
'''If you like this code, just e-mail me at:
'-------------------------------------------
'''[email protected]
'-------------------------------------------
'''Thank You!
''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''