Name: CommonDlg Funktion: Einfache Funktion um das CommonDialog Control zum öffnen und speichern von Dateien zu nutzen. Rückgabe: Ein String mit dem Pfad. Falls der String leer ist, wurde abgebrochen.
Visual Basic: [code]Public Function CommonDlg(ByVal nFilename As String, ByVal nDialogTitle As String, ByVal nInitDir As String, ByVal nFilter As String, ByVal OpenOrSave As Integer) As String On Local Error GoTo Err:
With cdlg .CancelError = True .InitDir = nInitDir .DialogTitle = nDialogTitle .FileName = nFilename .Filter = nFilter If OpenOrSave = 0 Then .ShowOpen ElseIf OpenOrSave = 1 Then .ShowSave End If End With
CommonDlg = cdlg.FileName
Exit Function Err: cdlg.FileName = vbNullstring CommonDlg = cdlg.FileName End Function[/code] Verwendung: Visual Basic: [code] Dim sFilepath as string sFilepath = CommonDlg("*.txt", "Open text file", CurDir, "Text files *.txt|*.txt", 0) if LenB(sFilepath) = 0 then Goto Err: [/code]
Registrieren
Login
