Option Explicit Private Sub Command1_Click()         Dim oldname As String         Dim newname As String         If Right(Dir1.Path, 1) = "\" Then            oldname = Dir1.Path & File1.FileName