PresentDir = "z:\"
If Dir(PresentDir & "img\Auto\" & Me.FolderName, vbDirectory) <> "" Then
Kill PresentDir & "img\Auto\" & Me.FolderName & "\*.*"
RmDir PresentDir & "img\Auto\" & Me.FolderName
End If
Удаление папки с сетевого диска
Код: