código cambiado:
On Error Resume Next
set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo "WinDir is " & WshShell.ExpandEnvironmentStrings("%WinDir%")
strDir = WshShell.SpecialFolders("Desktop")+"\pepo" '1)
msgbox strDir '2)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(strDir)
Set fc = f.Files
For Each f1 in fc
msgbox f1 '2)
fso.DeleteFile f1, True
Next
ahora bien...
Ok gracias por la respuesta pero quería saber si el programa que he escrito funcionaria o tengo que cambiar algo
No funciona ni a palos!!! ¿por qué no lo probás?
quiero hacerlo lo mas sencillo posible
con solo el cambio 1) con respecto a tú código ya debería funcionar, ¡¡ guarda con lo complicado del cambio!! y además ya te lo había dicho.
ya que mi nivel actual de programación es bajo.
pues si es bajo, lo cual en realidad no es un problema porque estudiando un poco se supera, lo preocupante por lo inexistente es tu nivel de lectura y compresión(ya no tiene solución).
lo que puse como "2)" en el código muestra el valor de las variables aunque es innecesario, no era tan díficil de entender para ver donde está mal lo que hiciste.
Quiero borrar todas las carpetas y archivos contenidos en una carpeta en el escritorio que se llama pepo.
éste código no borra carpetas pero ni loco lo pongo, si total mi nivel de castellano es muy malo.
Autor
En línea
