با سلام.من ميخواستم با vb6 يك برنامه اي بنويسم كه به طور مثال D:newfolder را حذف كند.يهني با يك بار كليك بر روي برنامه D:newfolder حذف شود.لطفا كامل راهنمايي كنيد.
Printable View
با سلام.من ميخواستم با vb6 يك برنامه اي بنويسم كه به طور مثال D:newfolder را حذف كند.يهني با يك بار كليك بر روي برنامه D:newfolder حذف شود.لطفا كامل راهنمايي كنيد.
سلام دوست عزیز...عضویتتون تبریک....
تابع زیر رو تو قسمت General تعریف کنید:
اینم کدی برای حذف:کد:Private Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
موفق باشید.کد:RemoveDirectory("D:\newfolder")
ممنون از راهنماییتون
حالا اگر یک فایل رو بخواهیم پاک کنیم چه کار کنیم
اگر فایل مخفی باشه چه طور؟با تشکر
سلام.نقل قول:
خوب بلدی سوال کنی...دمت گرم...
برای حذف یک فایل:
حالا اگه فایل مخفی بود باید خصلت اونو Normal کنی بعد حذفش کنی:کد:FileSystem.Kill ("D:\newfolder\a.txt")
موفق باشید.کد:FileSystem.SetAttr "D:\newfolder\a.txt", vbNormal
FileSystem.Kill ("D:\newfolder\a.txt")
آقا ممنون مشکلم حل شد.دمت گرم
ببخشید که شما رو با سوالات اذیت میکنم.اینم آخرین سوال.
فرض کنیم من چندتا فایل دارم که میخوام اونا رو حذف کنم اینم مسیراش
D:new/a.txt
E:new/a.txt
F:new/a.txt
با روشی که فرمودید برنامه خوب کار میکنه ولی اگر مسیر اولی یعنی
D:new/a.txt اصلا وجود نداشته باشه.برنامه خطا میده که فایلو پیدا نکرده در حالی که بقیه مسیرها وجود دارند اونا رو دیگه پاک نمیکنه.خوب میخوام روشی معرفی کنید که اگه مسیر اولی رو پیدا نکنه اونو رد کنه و بره سراغ مسیر دوم و اونو پاک کنه و اگر فرض کنیم اونم نباشه بره مسر سوم و اونو پاک کنه.این روش رو هم در مورد حذف پوشه ها نیز توضیح دهید.با تشکر
من يه مشكلي با ويژوال دارم اون هم اينه كه بلد نيستم يه كتاب خوب بهم معرفي كنيد
ممنون