حذف یک پوشه در قسمتی از هارد توسط اکسل

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • yamahdi13601982

    • 2015/03/06
    • 53
    • 82.00

    [حل شده] حذف یک پوشه در قسمتی از هارد توسط اکسل

    با سلام و خسته نباشید خدمت اساتید محترم.لطفا بفرمائید چطوری میتونم پوشه ای رو با این آدرس توسط ماکرو حذف کنم ---- f:/excel/mohammad
    با تشکر فراوان
  • yamahdi13601982

    • 2015/03/06
    • 53
    • 82.00

    #2
    منظورم پوشه ی mohammad هست.البته از دستور زیر استفاده کردم ولی در صورتی که پوشه خالی باشه حذف میشه و وقتی محتویات داره حذف نمیشه و ارور میده.من میخوام پوشه رو با تمام محتویاتش حذف کنم
    اینم دستوری که استفاده کردم.ببینید کجاش ایراد داره
    RMDIR "F:\excel\mohammad"
    Last edited by yamahdi13601982; 2016/09/01, 23:55.

    کامنت

    • yamahdi13601982

      • 2015/03/06
      • 53
      • 82.00

      #3
      کسی نیست جواب بده؟

      کامنت

      • yamahdi13601982

        • 2015/03/06
        • 53
        • 82.00

        #4
        آقایان پارسا . شمس العلما . آقا مهدی شما همیشه سوالای منو جواب دادین.اگه میشه این یکی رو هم جواب بدین خیلی واجبه

        کامنت

        • amir_ts

          • 2015/03/17
          • 1247

          #5
          با سلام
          لینک زیر را ملاحظه کنید.
          How to delete permanently files and folder in ... - Software Development | DaniWeb
          [SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]

          کامنت

          • yamahdi13601982

            • 2015/03/06
            • 53
            • 82.00

            #6
            ببخشید من نتونستم ازش استفاده کنم.میشه یا فایل پیوست بذارید.ممنون میشم

            کامنت

            • amir_ts

              • 2015/03/17
              • 1247

              #7
              با سلام
              کد زیر را امتحان کنید.
              مسئولیت استفاده از کد به عهده شما میباشد.
              کد:
              [LEFT]
              Sub test()
              
              On Error Resume Next
                  Kill "f:\excel\mohammad\*.*"
                  RmDir "f:\excel\mohammad"
                 
              End Sub
              [/LEFT]
              [SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]

              کامنت

              • yamahdi13601982

                • 2015/03/06
                • 53
                • 82.00

                #8
                ممنون از لطفتون امیر خان-خیلی عالی بود-البته کارم راه افتاد ولی اگه توی این پوشه ی mohammad یه پوشه ی دیگه بود حذف نمیشه.چطور میشه کل پوشه رو کمپلت و با تمام محتویات حذف کنم؟

                کامنت

                • amir_ts

                  • 2015/03/17
                  • 1247

                  #9
                  با سلام
                  کد زیر را امتحان کنید.
                  کد:
                  [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]
                  [SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]

                  کامنت

                  • yamahdi13601982

                    • 2015/03/06
                    • 53
                    • 82.00

                    #10
                    ممنون از لطفتون-خیلی عالی بود

                    کامنت

                    چند لحظه..