Reklamlar
Aranan dosyayı bulma yapmak

Aranan dosyayı bulma yapmak » ' Form üzerine bri adet FileListBox, bir adet DirListBox bir adetde ' DriveListBox yerleştirin dosyaadi="murat" call dosyabul (dosyaadi)

Gönderen Konu: Aranan dosyayı bulma yapmak  (Okunma sayısı 4434 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı administrator

  • Administrator
  • General
  • *****
  • İleti: 24517
  • Karma: +3/-1
    • Profili Görüntüle
    • Toplist Ekle Site Ekle

Aranan dosyayı bulma yapmak
« : Mayıs 15, 2010, 11:06:21 ÖÖ »
' Form üzerine bri adet FileListBox, bir adet DirListBox bir adetde
' DriveListBox yerleştirin
dosyaadi="murat"
call dosyabul (dosyaadi)

Public Sub dosyabul(dosya As String)
On Error GoTo z
For i = 0 To drive1.ListCount
dir1.Path = drive1.List(i)
For j = 0 To dir1.ListCount
file1.Path = dir1.List(i)
For k = 0 To file1.ListCount
If file1.List(k) = dosya Then MsgBox "Dosya Bulundu"
Next k
Next j
Next i
Exit Sub
z:
MsgBox Err.Description
End Sub



Not: Konular İnternet Sitelerinden derlenerek alıntı yapılmıştır.








BilX.Net

Çevrimdışı WANTED_KING

  • Yüzbaşı
  • ***
  • İleti: 165
  • Karma: +0/-0
    • Profili Görüntüle

Ynt: Aranan dosyayı bulma yapmak
« Yanıtla #1 : Nisan 01, 2011, 03:35:50 ÖS »
vb cok seyde ogrenmek ıstemıyorum boyle kucuk ama ıslevı buyuk pro yazsamda bana  yeter

aksam konu ıle calısma yapacam tsk paylasım ıcın
http://www.sanalciyiz.tk/
Kötü günde katkısı olmayanın iyi günde hissesi yoktur.

Çevrimdışı Mongchol

  • Çavuş
  • *
  • İleti: 2
  • Karma: +0/-0
    • Profili Görüntüle
    • เว็บพนันบอล ดีที่สุด

Ynt: Aranan dosyayı bulma yapmak
« Yanıtla #2 : Ocak 23, 2019, 06:30:28 ÖÖ »
These links work very well. I'm also looking for the same.