AccessTr.neT

Sayfalar: 1 2 3 4 5 6 7

Merhaba..

İ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

Sayın sledgeab vermiş olduğunuz örnek için teşekkürler, gayet güzel çalışıyor...

Sayın Taruz vermiş olduğunuz kodu da uyarladım, kodda çalışıyor, ilgilenip cevap veren, yardımcı olmaya çalışan herkese teşekkürler,

Kolay gelsin..

İşbirliği böyle oluyor demek ki. Ben işte bu modülü kastetmiştim. Teşekkürler Ozan...

Arkadaşlar kolay gelsin, sorunum çözüldü diye söyledim ama, biryeri atladığımı fark ettim,

Mevcud işlemlerle klosör haricindekilere yol verip, yolu ilgili alana yazdırıp, yazdırılan yol ile açılabiliniyor,

Aynı şekilde, ilgili alana klasör yolu da yazdırmam gerekiyor, şahıs tıkladığında klasörün içinin gözükmesi için.

Klasörü yol olarak nasıl yazdırabilirim, ve nasıl açılabilinir, yardımcı olacak herkese teşekkürler.

Arkadaşlar aynı yöntemle klosörü bağlamak mümkün değil mi? Yardımcı olacak herkese teşekkürler.

Merhaba..

Bu kod yardımı ile klasör yolu ekleyebilirsiniz..:

Kod:
On Error GoTo Err_trz_Click

    Dim KlsrYl As String

    Me.yol.SetFocus

    KlsrYl = BrowseDirectory("Klasör Ekle")

    yol = KlsrYl

Exit_trz_Click:

    Exit Sub

Err_trz_Click:

    MsgBox Err.Number & " - " & Err.Description

    Resume Exit_trz_Click

Sayfalar: 1 2 3 4 5 6 7

Taruz

danke

mehmetdemiral

danke

danke

Taruz