 Re: Problemas al eliminar una cerpeta
esto encontre en una web mira si te sirve algo el codigo;
Ejemplo que usa Fso ( FileSystemObject ) para eliminar un directorio con todos los archivos dentro, cosa que el comando Kill nos daría un error.
Para eliminar el directorio, se utiliza el método DeleteFolder, pasándole como parámetro el path de la carpeta a borrar
Nota: Para poder utilizar Fso debemos ir al menú referencias del Visual Basic y marcar la referencia Microsoft Scripting Runtime
O también lo podemos utilizar mediante automatización con CreteObject
'Variable de tipo Object
Dim fso As Object
' crear el objeto
Set fso = CreateObject("Scripting.FileSystemObject")
.. aunque en este ejemplo hay que especificar la referencia desde el menú de visual basic, ya que se crea con la palabra New
bueno empiieza el codigo:
CONTROLES QUE VAMOS A USAR:
Controles
1.- Un textbox llamado Text1 para escribir el path
2.- Un Commandbutton
CODIGO FUENTE EN UN FORM:
Option Explicit
' función que borra la carpeta
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''
Function Eliminar_Directorio(Path As String) As Boolean
On Error GoTo Error_Sub
'Variable de tipo file System Object
Dim fso As FileSystemObject
'Creamos la Nueva referencia Fso
Set fso = New FileSystemObject
'Le pasamos a DeleTeFolder el Path a eliminar
fso.DeleteFolder Path, True
If Err.Number = 0 Then
' Ok
Eliminar_Directorio = True
Set fso = Nothing
End If
Exit Function
Error_Sub:
MsgBox Err.Description, vbCritical
End Function
Private Sub Command1_Click()
If Text1 <> "" Then
' Msgbox de Confirmación de eliminación
If MsgBox("Seguro que se quiere borrar el directorio " & _
"indicado ??", vbQuestion + vbYesNo) = vbYes Then
' elimina la carpeta
If Eliminar_Directorio(Trim(Text1)) Then
MsgBox "Directorio eliminado", vbInformation
End If
End If
End If
End Sub
Private Sub Form_Load()
Command1.Caption = " Eliminar "
End Sub
SALU2,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,, |