حذف فولدر

[mahdi.fa]

با سلام ممنون می شوم اگه کسی لطف کند و کد حذف کردن یک فولدر را در یک آدرس مشخص برام بگذارد بازهم ممنون.

[SlowCode]

این کد رو هزار بار دوستان نوشتن، بفرمایید:
RmDir "C:\New Folder"
این تاپیک (http://barnamenevis.org/showthread.php?331885-%DA%A9%D8%A7%D8%B1-%D8%A8%D8%A7-%D9%81%D8%A7%DB%8C%D9%84-%D9%87%D8%A7-%D8%AF%D8%B1-vb&highlight=rmdir) رو هم ببین.

[mahdi.fa]

با سلام ممنون از پاسختون خوب این دستور فقط فولدر های خالی را حذف میکند برای حذف فولدر بهمراه اطلاعات داخلش نمی شه کار ی کرد ممنون مشوم اگه پاسخ کامل را برام بفرستید./

[محسن واژدی]

سلام علیکم
تابع زیر را در یک مادول کد کپی کنید:
Public Function RmDir(sDirPath) As Boolean
On Error Resume Next
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder sDirPath, True
RmDir = Dir(sDirPath) = Empty
End Function



دوباره طبق روال قبل تابع RmDir را که جناب محسن15 معرفی نمودند را اجرا کنید

نمونه زیر را هم بررسی کنید:
Private Sub Command1_Click()
MsgBox "Is successful removed dir? " & IIf(RmDir("D:\full_dir"), "Yes", "No")
End Sub

موفق باشید