واضح آرشیو وب فارسی:سایت ریسک: t=9504">استفاده از دستورهاي كپي و.. در ASP Ealireza 02 ارديبهشت 1383, 13:50سلام لطفا اگه ميشه توضيح بديد كه استفاده از 1- كپي كردن 2- تغيير نام 3- پاك كردن 4- دايركتوري گرفتن 4- چك كردن يك دايكرتوري (وجود داره يا نه) 5- اندازه گيري حجمي يك دايركتوري (كيلوبايت /مگابايت) 6- تاريخ ايجاد 7- آخرين تاريخ ماديفاي 8- نمايش استفاده از ميزان پهناي باند ماهيانه چطوري با ASP امكان پذير هست :roll: لطفا كد هاش رو هم بگيد ممنون :oops: :wink: مرسي :wink: omidak 02 ارديبهشت 1383, 17:01سلام: 8- رو فكر نمكنم بشه. اما نگفتي كه Classic میخوایی یا .Net ؟ :roll: Ealireza 02 ارديبهشت 1383, 22:39عزيزم هم به كلاسيك هم دات نت a_mollaei 03 ارديبهشت 1383, 01:52شما در كلاسيك مي توني از 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 03 ارديبهشت 1383, 02:55سلام: آخي Classic پرید :lol: در مورد شماره 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.GetLastWriteTim e("C:AA").ToString()) Ealireza 03 ارديبهشت 1383, 13:12مرسي
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 725]