Visual Basic Forum

ZiG · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 421

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]
_________________