Visual Basic Forum

Manfred · Newbie Anmeldedatum: 26.11.2009 Beiträge: 2

Verzeichnis umbenennen. VB6
Wäre schön wenn mir jemand helfen könnte.
Fehlermeldung: Pfad und Datei nicht gefunden.
Irgend etwas habe ich nicht verstanden.

Gruß Manfred

Option Explicit
Dim DateiName As String

Private Sub Laufwerk1_Change()
Verzeichnis1.Path = Laufwerk1.Drive
End Sub

Private Sub Verzeichnis1_Change()
Datei1.Path = Verzeichnis1.Path
Bezeichnung1.Caption = Verzeichnis1.Path
End Sub

Private Sub Datei1_Click()
DateiName = Datei1.List(Datei1.ListIndex)
DateiName = Datei1.Path + "\" + DateiName
Bezeichnung1.Caption = DateiName
End Sub

Private Sub mnuVerzUmbenennen_Click()
Dim eingabe As String
Dim alt As String
Dim neu As String
Dim i%

alt = Verzeichnis1.Path + "\" + Datei1.FileName
eingabe = InputBox("Verzeichnis Umbenennen" + Chr$(13) + Chr$(13) + Chr$(10) + Verzeichnis1.Path, " Verzeichnis Umbenennen")

If eingabe <> "" Then
If Right(alt, 1) = "\" Then
neu = alt + eingabe
Else
neu = alt + "\" + eingabe
Datei1.Path = alt + "\" + eingabe
End If
End If

Name alt As neu

'Verzeichnis1.Refresh
'If i% = Verzeichnis1.ListCount Then i% = i%
'Verzeichnis1.ListIndex = i%

End Sub
_________________

muerzi · Verfasst am: 23.12.2009, 09:12

Hallo Manfred

Probier einfach folgendes einsetzen

Manfred · Newbie Anmeldedatum: 26.11.2009 Beiträge: 2

Vielen Dank,

jetzt geht es.

Gruß Manfred
_________________