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

Wie sieht denn die Funktion/Prozedur "Bytecopy" aus, die in deinem Code aufgerufen wird?