Dim sPath as String
 
Private Sub Command1_Click() 'Klick, um CMDDLG zu öffnen
CmdDlg.ShowSave
Text1.Text = CmdDlg.Path
sPath = Text1.Text
End Sub
 
Private Sub Command2_Click() 
Name sPath As Text1.Text 'Hier wird dann der alte Dateiname in den neuen 
' umbenannt
End Sub