Hi,
ich möchte ein Programm schreiben, bei dem der Pfad einer Datei aus dem CommonDialog.ShowOpen direkt in ein auf der Form plaziertes Textfeld übertragen wird. Wie mache ich diese Übertragung??
Wie richte ich einen Filter für die Dialogbox ein?? In der Hilfe steht zwar etwas, aber es funkt nicht! Kann mir jemand helfen??
Danke für alle Antworten
Ereuge ein Standardprojekt mit Formular (Form1), mit Verweiss
auf das CommonDialog Control (Komponenten),
plaziere ein TextBox (Text1) auf dem Formular,
plaziere das CommonDialog auf dem Formular (CommonDialog1),
plaziere einen CommandButton (Command1),
dann füge folgenden Code ein:
Dim sFile as String
Private Sub Command1\_Click()
With CommonDialog1
.DialogTitle = "Öffnen"
.CancelError = False
.InitDir = App.Path
.Filter = "Text Format (\*.txt)|\*.txt"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
' Ganzer Pfad
' sFile = .FileName
' Nur Name
sFile = .FileTitle
End With
Form1.Text1.text = sFile
Form1.Text1.Refresh
End Sub
In erster Version hat sich leider ein kleiner Fehler eingeschlichen. Sorry. CO
If Len(.FileName) = 0 Then
Exit Sub
End If
statt .FileName den Quelltext von Dir bei Len
In erster Version hat sich leider ein kleiner Fehler
eingeschlichen. Sorry. CO
Diese Version geht zwar auch nicht, aber ich habe den Quelltext von Deinem Projekt mit dem aus dem Bericht (geschickt) verknüpft
und nun klappt es.
Danke für die Hilfe