? Удалить папку

[i_mark]

Без FSO.
Можно ли как-то по простому, типа Kill c какой-нибудь константой vbDirectory?

[Tauron]

Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long

[skiperski]

Если по-простому, то:
RmDir <PathName>

[i_mark]

Это именно то, что нужно. Ну люблю я вот так

Спасибо.

[i_mark]

Э, нет. Память не подвела. Помнилось, что так, по-простому, можно удалить только пустую папку . Думал - ошибся, оказалось - нет.

Ну ладно, нет - так нет.

[i_mark]

Короче, ну нафиг. Сделал через FSO, как и раньше, и все. А то сплошная долботня со всей этой простотой.

[Firestorm]

удаление папки...

Код: Выделить всё

Function DelTree(ByVal strDir As String) As Long
Dim xxx As Long
Dim intAttr As Integer
Dim strAllDirs As String
Dim strFile As String
DelTree = -1
On Error Resume Next
strDir = Trim$(strDir)
If Len(strDir) = 0 Then Exit Function
If Right$(strDir, 1) = "\" Then strDir = Left$(strDir, Len(strDir) - 1)
If InStr(strDir, "\") = 0 Then Exit Function
intAttr = GetAttr(strDir)
If (intAttr And vbDirectory) = 0 Then Exit Function
strFile = Dir$(strDir & "\*.*", vbSystem Or vbDirectory Or vbHidden)
Do While Len(strFile)
If strFile <> "." And strFile <> ".." Then
intAttr = GetAttr(strDir & "\" & strFile)
If (intAttr And vbDirectory) Then
strAllDirs = strAllDirs & strFile & Chr$(0)
Else
If intAttr <> vbNormal Then
SetAttr strDir & "\" & strFile, vbNormal
If Err Then DelTree = Err: Exit Function
End If
Kill strDir & "\" & strFile
If Err Then DelTree = Err: Exit Function
End If
End If
strFile = Dir$
Loop
Do While Len(strAllDirs)
xxx = InStr(strAllDirs, Chr$(0))
strFile = Left$(strAllDirs, xxx - 1)
strAllDirs = Mid$(strAllDirs, xxx + 1)
xxx = DelTree(strDir & "\" & strFile)
If xxx Then DelTree = xxx: Exit Function
Loop
RmDir strDir
If Err Then
DelTree = Err
Else
DelTree = 0
End If
End Function


[serix]

Посмотрев на это (почему нет смайлика со стрелкой вверх) все будут пользоваться только FSO...

[**Black-Van**]

А на Print "что нибуть" у Firestorm небось тоже найдётся "правельный код" длинной в пол страници