Supportnet / Forum / WindowsXP
Fehler beim kompilieren: Projekt oder Bibliotek nicht auffindbar
Frage
Private Sub importieren_Click() ----> das ist gelb markiert
Dim Vorschlag
Dim strVerzeichnis As String
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
Vorschlag = fGetImportFolder
'Import von Daten aus angegebener Quelle, mit Importspezifikation.
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = Me.Hwnd
sFilter = "Textdateien (*.txt)" & Chr(0) & "*.txt" & Chr(0) --
> erste Chr ist blau markiert
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = String(257, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = Vorschlag
OpenFile.lpstrTitle = "'Import' - Datei wählen"
OpenFile.flags = 0
lReturn = GetOpenFileName(OpenFile)
If lReturn = 10 Then