Dim Pfad As String
Dim PfadTXT As String
 
 
 
Private Sub Command1_Click()
Pfad = Text1.Text
Shell "explorer.exe /e,""" & Pfad & """", vbNormalFocus
End Sub
 
Private Sub Command2_Click()
Open "C:\text.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
 
Private Sub Dir1_Change()
Text1.Text = Dir1
End Sub
 
Private Sub Drive1_Change()
Dir1 = Drive1
End Sub
 
Private Sub Form_Load()
 
Dim strZeile As String
Open "c:\text.txt" For Input As #1
While Not EOF(1)
    Line Input #1, strZeile
 Wend
Close #1
Text1.Text = strZeile
 
Dir1 = Text1.Text
Drive1 = Text1.Text
End Sub