kodları Vb 6.0 için uyarlayabilirmiyiz.

[Kemal Demir]

VB 6.0 da uyarlamaya calistigim kodlarda hata alıyorum.Aşagıdaki kodlarda ne gibi değişiklik yapmam gerekir.Bu konuda yardımcı olabilirmisiniz.

Aşagıdaki kod dosyaları dosya yolları ile listelemeye yarıyor.

Private Sub Command1_Click()
    Text1 = ""
    Set klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100)
    Text1 = klasor.Items.Item.Path
End Sub

Private Sub Command2_Click()

' Alt satırda [b]Set bul=App.FileSearch [/b] satırında hata veriyor.
Set bul = App.FileSearch
With bul
    .LookIn = Text1.Text
    .SearchSubFolders = True
    .FileName = Combo1.Text
    
    If .Execute() > 0 Then
               For i = 1 To .FoundFiles.Count
            a = i + 1
        List1.AddItem .FoundFiles(i)
        Next i
    Else
    End If
End With
End Sub

 

[Mahmut Bayram]

Sayın Rakkas;
Özel mesaj gönderdim bakar mısınız.

 

[Mahmut Kök]

Sayın Rakkas;
Burası VB in yeri değil fakat eğer işiniz görülsün diye örnek gönderiyorum.

VB'nin yeri neresi? Eğer adres belirtirseniz arkadaşlar oradan istifade edebilirler. Benim bildiğim bir yer yok çünkü.

 

[Mahmut Bayram]

VBA nın yeri burası ama VB nin yerinin burası olmadığı kesin.
Galiba istemeyerek te olsa konuyu uzattım ve daldım.
Yukarıdaki mesajımı siliyorum ve ekli dosyayı özelden Rakkas'a gönderiyorum.

 

[Kemal Demir]

Arkadaslar teşekkur ederim.Çözüme ulaştım.emeklerinize Sağlık

 

[ipkisiyamaksosis]

Sayın Partner

Bahsettiğiniz dosyayı bana da gönderebilir misiniz lütfen?

VB 6.0 kitabı var bende ama kitabı aradım taradım bir türlü birşey bulamadım. Macro ile bir giriş programı hazırladım ancak bende bunu VB'e taşımak *.exe dosyası oluşturmak istiyorum.

Gönderirseniz çok memnun olurum.

Teşekkürler.

 

[Haluk]

VB ile ilgili sorularınıza lütfen başka forumlarda çözüm arayınız.

Bu forum, Office VBA ağırlıklı konularla ilgilidir ...

 

[Kemal Demir]

Haluk Bey,

Kusura bakmayınız.Birdaha Tekrarlamam.Arkadasımın bir calisması idi.Bende Kodlar ve mantıgı yakın oldugu için Böyle birşey yaptım.