Hallo,
also ich bin gerade dabei Basic zu lernen und das mit nem buch dazu aber das prog in dem buch funzt net so wie beschrieben ich weiss net ob euch der quell text was sagt ab hier ist er:
Private Sub DAT_ST_Click()
Dim quelle$, max&, ziel$, zieln$, batch$
Dim p&, i%, laenge&
max = DateigrößeErmitteln()
If max <= 0 Then Exit Sub
quelle = DateinameErmitteln()
If quelle = "" Then Exit Sub
laenge = FileLen(quelle)
If laenge < max Then
MsgBox "Die angegebene Datei ist kleiner als die zu splittende größe", vbInformation + vbOKOnly, "ERROR"
Exit Sub
End If
Mousepinter = 11
ziel = Zieldateiname(quelle)
batch = ziel + "bat"
Open quelle For Binary As 1
Open batch For Output As 2
Print #2, "copy /b"
For p = 0 To laenge Step max
zieln = ziel + Format$(i, "000")
Info1.Text = "Kopiere dateien nach " & zieln
Info2.Text = "Busy"
Refresh
If Dir$(zieln) <> "" Then
Kill zieln
End If
Open zieln For Binary As 3
If laenge - p < max Then
Bytecopy laenge - p, 1, 3 <--------- hir ist der fehler( bei der 1 sagt er es währe n fehler!
Else
Bytecopy max, 1, 3
End If
Close 3
If i > 1 Then Print #2, " + ";
Print #2, OhnePfad(zieln)
i = i + 1
Next p
Close 1
Print #2, " " + OhnePfad(quelle)
Close 2
Info1.Text = ""
MousePointer = 0
Refresh
End Sub
so und bei dem genannten teil kommt eine fehlermeldung beim kompilieren.
ich weiss net was ich machen soll aber wenn ihr mir helft wäre des ne goile sache thx
MfG
ToxicaLBraiN
also ich bin gerade dabei Basic zu lernen und das mit nem buch dazu aber das prog in dem buch funzt net so wie beschrieben ich weiss net ob euch der quell text was sagt ab hier ist er:
Private Sub DAT_ST_Click()
Dim quelle$, max&, ziel$, zieln$, batch$
Dim p&, i%, laenge&
max = DateigrößeErmitteln()
If max <= 0 Then Exit Sub
quelle = DateinameErmitteln()
If quelle = "" Then Exit Sub
laenge = FileLen(quelle)
If laenge < max Then
MsgBox "Die angegebene Datei ist kleiner als die zu splittende größe", vbInformation + vbOKOnly, "ERROR"
Exit Sub
End If
Mousepinter = 11
ziel = Zieldateiname(quelle)
batch = ziel + "bat"
Open quelle For Binary As 1
Open batch For Output As 2
Print #2, "copy /b"
For p = 0 To laenge Step max
zieln = ziel + Format$(i, "000")
Info1.Text = "Kopiere dateien nach " & zieln
Info2.Text = "Busy"
Refresh
If Dir$(zieln) <> "" Then
Kill zieln
End If
Open zieln For Binary As 3
If laenge - p < max Then
Bytecopy laenge - p, 1, 3 <--------- hir ist der fehler( bei der 1 sagt er es währe n fehler!
Else
Bytecopy max, 1, 3
End If
Close 3
If i > 1 Then Print #2, " + ";
Print #2, OhnePfad(zieln)
i = i + 1
Next p
Close 1
Print #2, " " + OhnePfad(quelle)
Close 2
Info1.Text = ""
MousePointer = 0
Refresh
End Sub
so und bei dem genannten teil kommt eine fehlermeldung beim kompilieren.
ich weiss net was ich machen soll aber wenn ihr mir helft wäre des ne goile sache thx
MfG
ToxicaLBraiN
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „“ ()