FSO ile Listeleme
Bu kod 1208 kere okunmuştur.
| Kod |
|---|
| Yazmış olduğum kod ile FSO kullanarak gösterilmiş klasörümüzdeki(örnekde sayfanın bulunduğu klasör) bütün dosyaları listeleyebilirsiniz Aşağıdaki kodu .asp uzantılı olacak biçimde kayıt yapmanız ve çalıştırmanız yeterlidir.İsterseniz strListelenecekKlasor adlı değişkenin / olan değeri yerine başka bir değer yazarak listelenecek klasörü seçebilirsiniz. Örnek vermek gerekirse listeleme yapdığımız sayfanın bulunduğu klasör içindeki dosyalar adlı bir klasörümüz olduğunu düşünürsek buradaki değerimiz /dosyalar olacatır. Kodu mümkün olduğunca kısa tutmaya çalıştım. Listelenirken Dosya ismi - ( Boyut Byte ) şeklinde alt alta sıralanmaktadır. Kod aşağıdadır. <% strListelenecekKlasor = / Set ObjFSO=Server.CreateObject(Scripting.FileSystemObject) Set strDosyalar=ObjFSO.GetFolder(Server.MapPath(strListelenecekKlasor)) For each strBulunanDosya in strDosyalar.files Response.Write strBulunanDosya.Name & ( & strBulunanDosya.size & Byte )<br> next %> Telif: Serdar Toros |