Visual Basic Forum

aMphetaMin · Tutorial Leser Anmeldedatum: 29.06.2008 Beiträge: 33

Habe ein Problem mit dem OpenFileDialog.

Ich möchte wenn man auf einen Button klickt das man sich dann eine Datei wählt. z.b. nur .exe Dateien. und dann der Pfad in einer TextBox steht.

MfG

bla · Coder Anmeldedatum: 02.05.2008 Beiträge: 267

Visual Basic: [code]Private Sub Dateiauswaehlen()
On Error GoTo Ende

With CommonDialog1
.CancelError = True
.Filter = "Exe-Files (*.exe)|*.exe"
.ShowOpen
If .FileName <> "" Then
text1.text = .filename
End If
End With

Ende:

End Sub[/code]

aMphetaMin · Tutorial Leser Anmeldedatum: 29.06.2008 Beiträge: 33

is das nicht VBClassic???

tr4st · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 486

Ja ist es, ist aber fast identisch.

Visual Basic: [code]Dim dlg As New OpenFileDialog
dlg.Filter = "Exe-Files (*.exe)|*.exe"
dlg.ShowDialog()

If dlg.FileName <> "" Then
TextBox1.Text = dlg.FileName
End If[/code]
Sollte so funktionieren.