Delete Folder (FSO)
Publicado por DarkLady (2 intervenciones) el 05/03/2002 08:03:13
El problema es el siguiente: Cuando intento borrar una carpeta me borra el contenido, pero me deniega el acceso para borrar la carpeta propiamente dicho y todo porque antes hago un dir() para verificar el tipo de contenido. El codigo que tengo seria algo asi:
sFileComp = Dir(App.Path & "\TEMP\*.*")
If sFileComp <> "" Then
Uscr1 = InStr(1, sFileComp, "_")
If Uscr1 <> 0 Then
FileDate = Left(Trim$(sFileComp), Uscr1 - 1)
If CLng(20020303) > CLng(FileDate) Then
Set fsoUpd = New FileSystemObject
'No se por que no me da permiso.
Set fsoFdr = fsoUpd.GetFolder(App.Path & "\TEMP")
fsoFdr.Delete
Agradeceria cualquier tipo de sugerencia :o/
Muchas gracias!
sFileComp = Dir(App.Path & "\TEMP\*.*")
If sFileComp <> "" Then
Uscr1 = InStr(1, sFileComp, "_")
If Uscr1 <> 0 Then
FileDate = Left(Trim$(sFileComp), Uscr1 - 1)
If CLng(20020303) > CLng(FileDate) Then
Set fsoUpd = New FileSystemObject
'No se por que no me da permiso.
Set fsoFdr = fsoUpd.GetFolder(App.Path & "\TEMP")
fsoFdr.Delete
Agradeceria cualquier tipo de sugerencia :o/
Muchas gracias!
Valora esta pregunta
0