با سلام و خسته نباشید خدمت اساتید محترم.لطفا بفرمائید چطوری میتونم پوشه ای رو با این آدرس توسط ماکرو حذف کنم ---- f:/excel/mohammad
با تشکر فراوان
با تشکر فراوان
[LEFT] Sub test() On Error Resume Next Kill "f:\excel\mohammad\*.*" RmDir "f:\excel\mohammad" End Sub [/LEFT]
[LEFT] Sub test() Dim FSO As Object Dim MyPath As String Set FSO = CreateObject("scripting.filesystemobject") MyPath = "f:\excel\mohammad" If Right(MyPath, 1) = "\" Then MyPath = Left(MyPath, Len(MyPath) - 1) End If If FSO.FolderExists(MyPath) = False Then MsgBox MyPath & " not found" Exit Sub End If FSO.deletefolder MyPath End Sub [/LEFT]
کامنت