--------------------------------------------------------------------------------
یادمه بیسسیک یک دستوری داره که با md شروع میشه و یک فولدر میسازه اما بقیش یادم نمی یاد کسی این رو میدونه
درمورد تغیر نام یک پوشه ساخته شده با دستور بالا چی ؟؟
Printable View
--------------------------------------------------------------------------------
یادمه بیسسیک یک دستوری داره که با md شروع میشه و یک فولدر میسازه اما بقیش یادم نمی یاد کسی این رو میدونه
درمورد تغیر نام یک پوشه ساخته شده با دستور بالا چی ؟؟
این کد این کارو میکنه :نقل قول:
البته این کد هم همون معنی رو میده :کد:Dim fs As FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CreateFolder ("F:\Test")
در ضمن یادت باشه گزینه Microsoft Scripting Runtime رو از منوی Project --> referencesکد:
Dim fs As New FileSystemObject
fs.CreateFolder ("F:\test")
به پروژه اضافه بکنی
در ضمن FileSystemObject اشیا کاربردی دیگری هم داره که خودت میتونی تست کنی
دستور اول جواب داد متشكر اما در دستور دوم خطا ميگيره و ميگه ابجكت ست نشدهنقل قول:
در هر حال ممنون از راهنمايي شما من كه جواب گرفتم
هر دو دستور جواب میده و دستور دوم جالب تر اولی هستش حداقل یه خط کمتره !نقل قول:
اینم بگم که برای هر دو باید گزینه Microsoft Scripting Runtime رو از منوی Project --> references
به پروژه اضافه بکنی
باز هم ممنوننقل قول:
سلام.
راهی که سیاوش گفت روش پیشرفته تر ساخت فولدره. fso امکانات زیادی برای کار با فایل ها بهت میده. ولی اگه داری یه برنامه سبک میسازی و فقط میخوای یه فولدر بسازی این دستور هم جواب میده.
کد:MkDir "C:\a"
متشکر از راهنمایی شمانقل قول:
ایا راهی وجود داره که بشه تاریخ سیستم رو هم به نام فولدر ساخته شده اضافه کرد
این انواع این مدل پوشه هست که بازم بسته به سلیقه خودت میتونی تغییرشون بدی !!!نقل قول:
کد:
Private Sub Command1_Click()
MkDir "G:\" & Format(Date, "dddd, d mmm yyyy")
MkDir "G:\" & Format(Date, "dddd, mmm d yyyy")
MkDir "G:\" & Format(Time, "h.m.s")
MkDir "G:\" & Format(Time, "hh.mm.ss AMPM")
MkDir "G:\" & Format(Time, "hh.mm.ss AMPM") & " -- " & Format(Date, "dddd, mmm d yyyy")
End Sub
تشكر فراواننقل قول: