<font color=green>' Pfad aus Textdatei auslesen</font>
Dim F As Integer
Dim sPath As String
 
F = FreeFile
Open "DeineDatei" For Input As #F
Line Input #F, sPath
Close #F

Dim F As Integer
Dim sPath As String
 
sPath = "c:	emp"
 
F = FreeFile
Open "DeineDatei" For Output As #F
Print#F, sPath
Close #F