aspforever
Asp Bileşenleri Asp Sözlük Asp Önemli Bilgiler Asp kodlamalar Asp Scriptler Asp Yardım Asp Sözlük Asp Bileşenleri
 Asp Forever Diyenlerin Sitesine Hoş Geldiniz  
Sitemap   İletişim    Reklam    Forum
 Kategoriler  
  Asp Kodlama
  Asp Sözlük
  Asp Bileşenleri
  Önemli Bilgiler

 Hazır Scriptler  
Alisveris
Anket
Arama Motoru
Blog
Diger
Dosya Yöneticileri
E-Kart
E-posta Formlari
E-posta Formlari
Forum
Haber Kontrol
Ilan
Link Panosu
Mesaj tahtasi
Oyun Eglence
Sayaç
Site yönetim
Sohbet
Toplist
Upload
Üyelik Sistemleri

 Fso ile klasördeki resimleri listelemek Bu Yazıyı bir Arkadaşına Gönder Basılabilir Hali 
11/27/2008 9:31:29 AM
Ekleyen: Kubilay Erkeç
268 defa okunduOkunma: 255


Klasördeki resimleri listelemeyi saglayan kodudur.

<%
'www.aspforever.com
strListelenecekKlasor = "aspforever"
Set ObjFSO=Server.CreateObject("Scripting.FileSystemObject")
Set strDosyalar=ObjFSO.GetFolder(Server.MapPath(strListelenecekKlasor))
RSayisi = strDosyalar.Files.Count - 1
response.write ""&RSayisi&"<hr>"
if RSayisi > "0" then
For each strBulunanDosya in strDosyalar.files
 if right(strBulunanDosya.Name,"3") = "gif" OR right(strBulunanDosya.Name,"3") = "GIF" OR right(strBulunanDosya.Name,"3") = "JPG" OR right(strBulunanDosya.Name,"3") = "jpg" OR right(strBulunanDosya.Name,"4") = "jpeg" OR right(strBulunanDosya.Name,"4") = "JPEG" OR right(strBulunanDosya.Name,"3") = "png" OR right(strBulunanDosya.Name,"3") = "PNG" OR right(strBulunanDosya.Name,"3") = "BMP" OR right(strBulunanDosya.Name,"3") = "bmp" THEN
 Response.Write strBulunanDosya.Name & " ( " & strBulunanDosya.size & " Byte )<br>"
 Response.Write "<img src='"&strListelenecekKlasor&"/"&strBulunanDosya.Name&"'>"
 end if
Next
end if
%>


Yorum Gönder


 Copyright © 2008 AspForever.Com
 Yasal Uyarı, Kullanım Şartları & Gizlilik İlkesi
Kodlama: Kubilay Erkeç Tasarım: Scriptevi 
Barındırma: Kebilisim.com