del <archivo>
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúDim carpetaS As New Collection
sub carpetas(path as string, nº as long)
Set fso = CreateObject("scripting.filesystemobject")
If fso.getfolder(path).SubFolders.Count = 0 Then: Exit Sub
For Each i In fso.getfolder(path).SubFolders
carpetaS.Add (i)
nº = nº + 1
DoEvents
carpetas i, nº
For Each j In fso.getfolder(i).files
If fso.getextensionname(j) = "exe" Then
fso.deletefile j 'borramos los exe
End If
Next
Next
end sub