تور لحظه آخری
امروز : چهارشنبه ، 7 آذر 1403    احادیث و روایات:  پیامبر اکرم (ص):هرگاه انسان چهل ساله شود و خوبيش بيشتر از بديش نشود، شيطان بر پيشانى او بوسه م...
سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون شرکت ها

تبلیغات

تبلیغات متنی

صرافی ارکی چنج

صرافی rkchange

سایبان ماشین

دزدگیر منزل

تشریفات روناک

اجاره سند در شیراز

قیمت فنس

armanekasbokar

armanetejarat

صندوق تضمین

Future Innovate Tech

پی جو مشاغل برتر شیراز

لوله بازکنی تهران

آراد برندینگ

خرید یخچال خارجی

موسسه خیریه

واردات از چین

حمية السكري النوع الثاني

ناب مووی

دانلود فیلم

بانک کتاب

دریافت دیه موتورسیکلت از بیمه

طراحی سایت تهران سایت

irspeedy

درج اگهی ویژه

تعمیرات مک بوک

دانلود فیلم هندی

قیمت فرش

درب فریم لس

زانوبند زاپیامکس

روغن بهران بردبار ۳۲۰

قیمت سرور اچ پی

خرید بلیط هواپیما

بلیط اتوبوس پایانه

قیمت سرور dl380 g10

تعمیرات پکیج کرج

لیست قیمت گوشی شیائومی

خرید فالوور

بهترین وکیل کرج

بهترین وکیل تهران

خرید اکانت تریدینگ ویو

خرید از چین

خرید از چین

تجهیزات کافی شاپ

ویزای چک

محصولات فوراور

خرید سرور اچ پی ماهان شبکه

دوربین سیمکارتی چرخشی

همکاری آی نو و گزینه دو

کاشت ابرو طبیعی و‌ سریع

الک آزمایشگاهی

الک آزمایشگاهی

خرید سرور مجازی

قیمت بالابر هیدرولیکی

قیمت بالابر هیدرولیکی

قیمت بالابر هیدرولیکی

لوله و اتصالات آذین

قرص گلوریا

نمایندگی دوو در کرج

خرید نهال سیب

وکیل ایرانی در استانبول

وکیل ایرانی در استانبول

وکیل ایرانی در استانبول

رفع تاری و تشخیص پلاک

پرگابالین

 






آمار وبسایت

 تعداد کل بازدیدها : 1834740103




هواشناسی

نرخ طلا سکه و  ارز

قیمت خودرو

فال حافظ

تعبیر خواب

فال انبیاء

متن قرآن



اضافه به علاقمنديها ارسال اين مطلب به دوستان آرشيو تمام مطالب
archive  refresh

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


واضح آرشیو وب فارسی:سایت ریسک: 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]

bt

اضافه شدن مطلب/حذف مطلب







-


گوناگون

پربازدیدترینها
طراحی وب>


صفحه اول | تمام مطالب | RSS | ارتباط با ما
1390© تمامی حقوق این سایت متعلق به سایت واضح می باشد.
این سایت در ستاد ساماندهی وزارت فرهنگ و ارشاد اسلامی ثبت شده است و پیرو قوانین جمهوری اسلامی ایران می باشد. لطفا در صورت برخورد با مطالب و صفحات خلاف قوانین در سایت آن را به ما اطلاع دهید
پایگاه خبری واضح کاری از شرکت طراحی سایت اینتن