Genannte Argumente nicht zulässig
14.09.2006 07:12:59
Josef
Ich fand im Internet folgende Function:
Function StartIt()
Dim strFilter As String
Dim lngFlags As Long
Dim thCommonFileOpenSave
strFilter = thAddFilterItem(strFilter, "Excel Files (*.xls)", "*.XLS")
strFilter = thAddFilterItem(strFilter, "Text Files(*.txt)", "*.TXT")
strFilter = thAddFilterItem(strFilter, "All Files (*.*)", "*.*")
Startform.filenameinput.Value = thCommonFileOpenSave(InitialDir:="H:\Projekt XML", Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, DialogTitle:="File Browser")
Debug.Print Hex(lngFlags)
End Function
Leider erhalte ich bei DialogTitle, Flags und DialogTitle immer den Hinweis
Fehler beim Kompilieren: genannte Argumente nicht zulässig. Wo ist hier bitte der Fehler?
Danke
Josef