klasör açmak

[Yüksel Varlı]

Merhaba,
Exceldeki bu kodun Access deki karşılığı nedir?

MyPath = CurDir
ChDrive "C:"
ChDir ("C:\")
MyFile = Application.GetOpenFilename("WAV Dosyaları, *.wav,MP3 Dosyaları ,*.mp3")
If MyFile <> False Then müzik3.Value = (MyFile)
ChDir MyPath

 

[Zeki Gürsoy]

İlgili ocx varsa aşağıdaki kod ile yapabilirsiniz.

Sub Common_Dialog()
Set dlg = CreateObject("MSComDlg.CommonDialog")

' Filter syntax: İsim |filtre|
strFilter = "Access dosyası (*.mdb)|*.mdb|"
strFilter = strFilter & "Excel dosyaları (*.xls)|*.xls|"
strFilter = strFilter & _
    "Resim dosyaları (*.bmp,*.jpg,*.gif)|*.bmp;*.jpg;*.gif|"
strFilter = strFilter & "Tüm dosyalar (*.*)|*.*|"

With dlg
    .DialogTitle = "Dosya seçiniz..." ' Başlık
    .InitDir = "C:\" ' Varsayılan konum
    .Flags = 4 ' Saltokunur seçeneği disable olur
    .Filter = strFilter
    .FilterIndex = 4 ' Yukarıdaki filtrelerin varsayılanı.(Tüm dosyalar)
    .ShowOpen
If .Flags = 4 Then Exit Sub  ' İptal tuşuyla sonlandır
End With

MsgBox dlg.Filename
End Sub

 

[Yüksel Varlı]

Zeki Bey,

Set dlg = CreateObject("MSComDlg.CommonDialog") satırında hata verdi

herhalde ocx yok. Başka Çözüm yolu var mı acaba?

 

[Zeki Gürsoy]

Bunu dener misiniz?

Sub Dialog_Ac()
MsgBox BrowseForFile
End Sub

Function BrowseForFile()
Dim sBrowsePath, sBrowseFilter, oBrowseDialog
sBrowsePath = strDesktop
sBrowseFilter = "Müzikler (.mp3;wav)|*.vaw;*.mp3"
Set oBrowseDialog = CreateObject("UserAccounts.CommonDialog")
oBrowseDialog.Filter = sBrowseFilter
oBrowseDialog.InitialDir = sBrowsePath
oBrowseDialog.Flags = &H80000 + &H4 + &H8
oBrowseDialog.ShowOpen
BrowseForFile = oBrowseDialog.FileName
End Function

 

[Yüksel Varlı]

Zeki Bey,
Bu kodlar çalıştı. Çok teşekkür ediyorum. Sağolun...