استفاده از دستورهاي كپي و.. در ASP

[Ealireza]

سلام
لطفا اگه ميشه توضيح بديد كه استفاده از
1- كپي كردن
2- تغيير نام
3- پاك كردن
4- دايركتوري گرفتن
4- چك كردن يك دايكرتوري (وجود داره يا نه)
5- اندازه گيري حجمي يك دايركتوري (كيلوبايت /مگابايت)
6- تاريخ ايجاد
7- آخرين تاريخ ماديفاي
8- نمايش استفاده از ميزان پهناي باند ماهيانه
چطوري با ASP امكان پذير هست :roll:
لطفا كد هاش رو هم بگيد ممنون
مرسي

 

[omidak]

سلام:
8- رو فكر نمكنم بشه.
اما نگفتي كه Classic میخوایی یا .Net ؟ :roll:

 

[Ealireza]

عزيزم هم به كلاسيك هم دات نت

 

[a_mollaei]

شما در كلاسيك مي توني از File system object استفاده كني.
همونطوريكه اميدك گفت احتمالا 8 رو نمي توني پيداكني اما براي بقيش مي توني از كدهاي زير استفاده كني.(در كلاسيك)

براي تعريف شي:

Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")

براي كپي كردن:

Fso.CopyFile Server.MapPath("file.typ"),Server.MapPath("/YourDirectory/NewName.typ")

براي حذف فايل:

fso.DeleteFile Server.MapPath("filename.typ")


fso.DeleteFolder Server.MapPath("Foldername")

براي تشخيص وجود يك فايل يا دايركتوري

if fso.FleExist server.MapPath("FileName.typ") then
..........
End If

if fso.FolderExist server.MapPath("FolderName") then
..........
End If

ليست دايركتوريهاي موجود در يك دايركتوري:

Function ShowFolderList(folderspec)
   Dim fso, f, f1, fc, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set fc = f.SubFolders
   For Each f1 in fc
      s = s & f1.name 
      s = s & " " & f1.DateCreated
      s = s & " " &  f1.DateLastAccessed 
      s = s & " " &  f1.DateLastModified 
      s = s & " " &  f1.ShortName 
      s = s & " " &  f1.Size 
      s = s &   "<BR>"
   Next
   ShowFolderList = s
End Function

اين كد تمام مشخصات Subfolder ها رو هم به شما مي ده.

براي گرفتن فايلهاي موجود در يك دايركتوري:

Function ShowFileList(folderspec)
   Dim fso, f, f1, fc, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set fc = f.Files
   For Each f1 in fc
      s = s & f1.name 
      s = s & " " & f1.name 
      s = s & " " & f1.Attributes
      s = s & " " & f1.DateCreated
      s = s & " " & f1.DateLastAccessed
      s = s & " " & f1.DateLastModified
      s = s & " " & f1.ShortName
      s = s & " " & f1.ShortPath
      s = s & " " & f1.Size
      s = s & " " & f1.Type

      s = s & "<BR>"
   Next
   ShowFolderList = s
End Function

البته اين تابعها سايز رو به بايت ميدن. براي تبديل به كيلوبايت بايد بر 1024 تقسيم كني.

 

[omidak]

سلام:
آخي Classic پرید
در مورد شماره 8 شما میتونید البته به شرطی که سرور اتون بهتون سرویس اشو بده. که من تاحالا سروره به این مهربونی ندیدم. حتی شما تویه .Net میتونید Domain و SubDomain و کنترل کامل رویه DNS و به عبارتی رویه DNS اتون داشته باشید. ولی هیچ سروری ندیدم که این سرویس رو بزاره. :roll:
خوب این هم چند کد:
کپی

System.IO.File.Copy("C:\a.exe", "D:\a.exe", False)

حذف

System.IO.File.Delete("C:\a.exe")

وجود فایل. خروجی False و Ture میباشد:

If System.IO.File.Exists("c:\a.exe") Then
..
End If

ساخت دایرکتری:

System.IO.Directory.CreateDirectory("C:\AA")

حذف دایرکتری:

System.IO.Directory.Delete("C:\AA")

وجود داشتن Directory. خروجی False و True

System.IO.Directory.Exists("C:\AA")

انتقال دایرکتری:

System.IO.Directory.Move("C:\AA", "D:\AA")

زمان ساخت:

Response.Write(System.IO.Directory.GetCreationTime("C:\AA").ToString())

زمان ساخت:

Response.Write(System.IO.Directory.GetLastWriteTime("C:\AA").ToString())

 

[Ealireza]

مرسي