Editor Login | Register
Ekle

> Akademik İnternet ® > ASP
Show Zip Files (ing) - ASP - Akademik İnternet ® -
CWhite
(Relased 09.01.2008 23:30:59)


Show Zip Files (ing)

Sunucunuzdaki .zip dosyalarını gösteren işe yarayacak başarılı bir kod.
Kodu .asp uzantılı olacak şekilde çalıştırmanız yeterli olacaktır.
İşlemin yapılacağı klasörü "path" adlı değişkenin eşitliğinde olan değerini kendi sunucunuza göre ayarlamanız gerekmektedir.







a
{
color:000000;
font-weight:bold;
}





set  FileSystem = CreateObject("Scripting.FileSystemObject")

"path = FileSystem.GetAbsolutePathName("./")
"path = FileSystem.GetAbsolutePathName("c:")
"Both these  function  calls were supposed  to  work, but
"on my computer they just give me C:\
":(
"In  case  it"s just my computer I"ve left them commented.
path = "c:\\folder1\\folder2"

set  Folder = FileSystem.GetFolder(path)

"Get an array of all the files  in  the current directory.
set  Files = Folder.Files

for  each File  in  Files

FileName = File.name
Ext =  right(FileName, 4)
%>



">










Derecelendir
Kaynak CWhite Tarafından yazılmış/derlenmiştir.
İçerik İhbarı
Bağlantılar: bilgininefendisi.net

Open Source Document Project AUP&TOS