İlk mesajımda işaret ettiğim öneri doğrultusunda bir alternatif (API olmaksızın) yöntem de ben sunayım..
Sayın sledgeab'ın eklediği örnekteki formda bulunan tüm kodları bunlarla değiştirirseniz modülü devre dışı bırakabilirsiniz..
Kod:
Private Sub Komut4_Click()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim dosya As Variant
With fd
.InitialFileName = "C:\"
If .Show = -1 Then
For Each dosya In .SelectedItems
yol = dosya
Next dosya
Else
MsgBox "Dosya seçimi iptal ettiniz"
End If
End With
Set fd = Nothing
End Sub
Private Sub yol_Click()
Dim shell_app As Object
Set shell_app = CreateObject("Shell.Application")
shell_app.Open "" & Me!yol
Set shell_app = Nothing
End Sub
