Deltree Visual Basic

[ohlsson_emil]

Hej!

 

Jag undrar om det finns någon färdig funktion som kan tabort en hel katalog med under-kataloger och filer, även om dom är dolda och skriv-skyddade?

[Don Tomas]

Ingen inbyggd, men det finns kodexempel, detta kanske fungerar...

 

ifrån http://www.freevbcode.com/AuthorInfo.asp?AuthorID=1

 

Public Function KillFolder(ByVal FullPath As String) _
  As Boolean

'******************************************
'PURPOSE: DELETES A FOLDER, INCLUDING ALL SUB-
'         DIRECTORIES, FILES, REGARDLESS OF THEIR
'         ATTRIBUTES

'PARAMETER: FullPath = FullPath of Folder to Delete

'RETURNS:   True is successful, false otherwise

'REQUIRES:  'VB6
           'Reference to Microsoft Scripting Runtime
           'Caution in use for obvious reasons

'EXAMPLE:   'KillFolder("D:\MyOldFiles")

'******************************************
On Error Resume Next
Dim oFso As New Scripting.FileSystemObject

'deletefolder method does not like the "\"
'at end of fullpath

If Right(FullPath, 1) = "\" Then FullPath = _
   Left(FullPath, Len(FullPath) - 1)

If oFso.FolderExists(FullPath) Then

   'Setting the 2nd parameter to true
   'forces deletion of read-only files
   oFso.DeleteFolder FullPath, True

   KillFolder = Err.Number = 0 And _
     oFso.FolderExists(FullPath) = False
End If

End Function

 

TN

 

 

[inlägget ändrat 2002-09-19 14:36:40 av Don Tomas]

[Leo2]

Jodå. Det där fungerar utmärkt. Det är det som säkerhetshålet i hjälpfunktionen i XP bygger på.... Jag själv har inte uppdaterat till SP1. Inte heller har jag tagit bort filen. Jag har helt enkelt kommenterat bort raden där filerna tas bort.