Zitat von Smith128FX Basic: 100% //Soooo schwer ... Wenn das so schwer ist kannst du mir auch sicherlich sagen was das hier macht: Code: Private Sub Form_Haha() Dim p$ ' p$ = App.Path ' If Right(p$, 1) <> "\" Then p$ = p$ + "\" End If ' If LoadFileToTB(Text1, p$ + "lol.blubb") = False Then MsgBox ":D.", , ":P" End If ' End Sub Hf
Private Sub Form_Haha() Dim p$ ' p$ = App.Path ' If Right(p$, 1) <> "\" Then p$ = p$ + "\" End If ' If LoadFileToTB(Text1, p$ + "lol.blubb") = False Then MsgBox ":D.", , ":P" End If ' End Sub
Foren-Regeln