Selam ,

Soracağım konu belki forumlarda vardır, şimdiden özür dilerim.

Siparişleri girdğim bir formum var, form üzerinde komut225 tuşuna bastığımda aşağıdaki kodu kullanarak windows gezgini açıp istediğim resmin adı ve yolunu, yol ve renk isimli metinlere yazdırabiliyorum.
Ancak resimlerim belli bir klasörde toplandığı için, arama penceresinin direk istediğim klasörü açmasını istiyorum. Yardımlarınız için şimdiden teşekkürler.

saygılar...

Private Sub Komut225_Click()
Dim f As Object
Dim strfile As String
Dim strfolder As String
Dim varitem As Variant

Set f = Application.FileDialog(3)
f.allowmultiselect = True
If f.show Then
For Each varitem In f.selecteditems
strfile = Dir(varitem)
strfolder = Left(varitem, Len(varitem) - Len(strfile))
MsgBox "folder" & strfolder & vbCrLf & _
"file: " & strfile
yol = strfolder + strfile
renk = strfile
Next
End If
Set f = Nothing
End Sub

Private Sub Komut225_Click()
Dim f As Object
Dim strfile As String
Dim strfolder As String
Dim varitem As Variant

Set f = Application.FileDialog(3)
f.allowmultiselect = True
f.InitialFileName = "C:\KlasorAdi\*.bmp;*.gif;*.jpg;*"
If f.show Then
For Each varitem In f.selecteditems
strfile = Dir(varitem)
strfolder = Left(varitem, Len(varitem) - Len(strfile))
MsgBox "folder" & strfolder & vbCrLf & _
"file: " & strfile
yol = strfolder + strfile
renk = strfile
Next
End If
Set f = Nothing
End Sub

Renkli bolum eklenebilir.

Çok teşekkür ederim hocam, emeğinize sağlık...