[Pytanie] Jak usunąć folder z zawartością ?

[Agent00c4]

Hi, mam dla was pytanie, które jest w temacie. Próbowałem już rmdir'a jednak on usuwa tylko puste foldery oraz My.Computer.FileSystem.DeleteDirectory jednak on pyta, czy usunąć. Ja chciałbym aby usuwał, ale nie informował o tym.

Pomożecie ??

[PelenMuzyki]

http://www.mpcforum.pl/topic/703464-zlecenie-tlo/ Proszę !

 

PRZEPRASZAM !

[somanyidiots]

Chwila googlowania..

Sub Clear_All_Files_And_SubFolders_In_Folder()
'Delete all files and subfolders
'Be sure that no file is open in the folder
   Dim FSO As Object
   Dim MyPath As String

   Set FSO = CreateObject("scripting.filesystemobject")

   MyPath = "C:\Users\Ron\Test"  '<< Change

   If Right(MyPath, 1) = "\" Then
       MyPath = Left(MyPath, Len(MyPath) - 1)
   End If

   If FSO.FolderExists(MyPath) = False Then
       MsgBox MyPath & " doesn't exist"
       Exit Sub
   End If

   On Error Resume Next
   'Delete files
   FSO.deletefile MyPath & "\*.*", True
   'Delete subfolders
   FSO.deletefolder MyPath & "\*.*", True
   On Error GoTo 0

End Sub

source: http://www.rondebruin.nl/folder.htm

[Agent00c4]

Po szukałem więcej i dowiedziałem się, że ten kod co ty podałeś można skrócić do 16 znaków