File/dir listbox

Ska göra ett prog typ explorer men den vill inte göra annat en krabba ... ja har en DirListBox och en FileListBox och en aktiverings knapp me dennza kod:

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Cmd1_Click()
Shell File1.Path & "\" & File1.FileName
End Sub

Men då ja kör kommer det:
RunTime Error '5'
Invalid procedure call or argument

HJÄLPPPP

Vänta här nu...den koden funkar men bara på .Exe filer....gör shell bara .exe??? och i sånna fall finns det nåt annat kommando

gör shell bara .exe???

Nej, den klarar även *.com och inbyggda "DOS"-kommandon, men vad du behöver är ShellExecute. Sök lite i forumet.