Hallo zusammen,
ich habe ein Menü erstellt. (dies war ja einfach) *fg*
dann zeigt er mir folgenden Code an:
Sub mnuÖffnen_Click()
On Error GoTo ErrHandler
CmDialog1.Filter = „WebSeite, komplett(.html,.htm)|.html | .htm "
CmDialog1.Filter = "WebSeite, nur HTML(.html)|.html“
CmDialog1.Filter = „Textdatei(.txt)|.txt“
CmDialog1.Flags = &H1000&
CmDialog1.Action = 1
Pot_Filename = CmDialog1.filename
Open Pot_Filename For Input As 100
Input #100, tZeile
Close #100
Nixwieweg:
Exit Sub
ErrHandler:
MsgBox („Abbruch oder Laden mißlungen, Daten überprüfen“)
Resume Nixwieweg
End Sub
Es sahr vorher so aus:
Sub mnuÖffnen_Click()
End Sub …
den Code habe ich dort eingefügt, aber trotzdem kann er das ned laden, wenn ich dies mal ausprobieren möchte !!
Woran liegt das oder muß ich es anders machen ??
Ich bin Anfänger … *fG*
MfG Maik Jannasch