VB6 Dateien öffnen (Programmieren)

VB6 Dateien öffnen (Programmieren)

Hallo allerseits.
Wie schaffe ich es das ich in VB6 mit einem klick auf einen button eine datei im selben verzeichnis öffnen kann?

PS: datei ist *.cmd
App.Path liefert Dir den aktuellen Pfad:
Dim DateiName as String

DateiName = App.Path
If Right$(DateiName, 1) <> "\" Then DateiName = DateiName + "\"
DateiName = DateiName + "meinedatei.cmd"
Shell Dateiname, vbNormalFocus
Logge dich ein um einen Beitrag zu schreiben.