Dir Komutu

[turksauron]

Dir komutunu kullanarak bütün klasör ve dosyaları bir listbox içine atmak istiyorum. Kod şu:

Private Sub Command1_Click()
Listele "C:"
End Sub

Sub Listele(yol)
On Error Resume Next
dosya = Dir(yol)
Do Until dosya = ""
If dosya <> "." or dosya <> ".." Then
List1.AddItem dosya
DoEvents
Listele yol & "\" & dosya
End If
dosya = Dir(yol & "\" & dosya
Loop
End Sub

Ama bir yerden sonra sürekli aynı klasörü listeye ekliyor. Hatam nerde?

[Mc_HunteR]

abi ben kopyalamayı biliyorum
söyle eger dosya yoksa

md listbox
daha sonra bu kopyalacağın yer nesye

copy *.* *listbox diye biliyorum umarım dogrudur öyle hatırlıyorum
kolay gelsin

[damdaki_kedi]

Private Sub Command1_Click()
Listele "C:"
End Sub

Sub Listele(yol)
On Error Resume Next
dosya = Dir(yol)
Do Until dosya = ""
If dosya <> "." or dosya <> ".." Then
if list1.list(list1.listcount)=dosya then
exit do
else
List1.AddItem dosya
DoEvents
Listele yol & "\" & dosya
End If
dosya = Dir(yol & "\" & dosya)
end if
Loop
End Sub

bunu dene bi. yukardakine sadece bir koşul ekledim ama deneme fırsatım olmadı.

[e_gencpinar]

Bu kodun asp ile yazılmışsa "=" (equality test operator) kullanma.
strcomp (string compare) fonksiyonunu kullan.

if strcomp(dosya, ".") = 0 then şeklinde yaz.

Çünkü eşitlik işlemcisi yetersiz geliyor olabilir.

[turksauron]

Asp ile değil. Ben sadece bütün klasörleri, içindeki dosyaları listelemek istiyorum. DirBox ile denedim ancak gizli dosyaları DirBox göremiyor. Pc-Cillin'de taratma yaparken daha fazla dosya buluyor.

Üff çok gıcık bişey şu visual basic yahu.