% 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 )
" Next %>
|