<%strListelenecekKlasor = "avatar"Set ObjFSO=Server. CreateObject Set strDosyalar=ObjFSO. GetFolder(Server. MapPath RSayisi = strDosyalar. Files. Count - 1response. write ""&RSayisi&"<hr>"if RSayisi > "0" thenFor 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 & " <br>" Response. Write "<img src='"&strListelenecekKlasor&"/"&strBulunanDosya. Name&"'>" end ifNextend if'http://serkan.teorik. net%> Ek olarak dosyaların adlarını ve boyutlarınıda yanlarına yazdırdım, eğer onları istemiyorsanız Response. Write strBulunanDosya. Name & " <br>" satırını silin. Güle güle kullanın. Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

teşekkürler ontedicim kodunu bi sitemde kullanıp bi sitemdede dağıtacam :D izin istiyorum haber veriyorum :D kelimeler albayım bazı anlamlara gelmiyor.