Mensajes

[HKCU\Control Panel\Desktop\Wallpaper]

Lo del pendrive y demás, busca que encontrarás....

Lo del wallpaper..... hay que cambiar la ruta en el registro

HKCU\Control Panel\Desktop\Wallpaper

Saludos

[Azielito......]

Azielito......

Me pareción muy bueno desde el principio... pero sin lugar a dudas, gana muchos puntos luego de ver el original   

[move]

Hola, con el comando move alcanza, simplemente utilizas el comodín *

Código (dos) [Seleccionar] Expandir

move *.doc carpetadestino
move *.txt carpetadestino

Saludos

Mira, esto te lo pongo fácil en vbs, ahora en batch.... 

Código (vb) [Seleccionar] Expandir

set objfso = createobject("scripting.filesystemobject")
set imagefolder = objfso.getfolder("C:\Documents and Settings\novlucker\Mis documentos\Mis imágenes")
'en la linea de arriba, debes de cambiar la ruta por la ruta de tu carpeta

set imagenes = imagefolder.files

for each imagen in imagenes

if datediff("d", imagen.datelastmodified, now()) >7 then
objfso.deletefile imagen.path
end if

next

Es un vbs, es decir, igual que un bat, pero con esa otra extensión, y aunque no lo manejes, creo que lo entenderás.

Saludos

[Modifico:] En caso de que quieras probarlo sin borrar nada, sustituye...

Código (vb) [Seleccionar] Expandir

objfso.deletefile imagen.path
por

Código (vb) [Seleccionar] Expandir

msgbox imagen.path
Y dado que te metes en un bucle que recorrerá cada imagen, y mostrará un mensaje en cada una de ellas, para terminar el script, mata el proceso wscript.exe 

[detalle]

Necesitas realmente automatizar esto?
Has intentado poniendo vista en detalle en la carpeta y agregando fecha de creación y moficación para luego ordenarlos? 

Saludos

[Darioxhcx]

Si es como dice Darioxhcx, es fácil, simplemente en el sendkeys envias el "/sendfile c:\archivo.txt" y luego un enter, todos los caracteres que veo en la frase no necesitan ningún tipo de cambio o filtrado especifico 

Saludos

Komo se pueden mandar archivos asi ? He probao con sendfile y nada... 

Hasta donde se, no se puede  , en lenguajes como VB debes de jugar con el portapapeles, creando un zip, enviandolo al portapapales, y pegando su contenido en la ventana de conversación, pero en vbscript no se puede jugar con el portapapeles  , salvo para texto, nada de imagenes y demás 

Saludos

Yo hago lo mismo para vbs, y utilizo lycos 

[TUTORIAL vbscript]

No veo que haya un error que impida que se ejecute bien, has probado solamente con el vbs, sin compilar 

Lo que si veo es:
1) Con crear el objeto fso una sola vez, alcanza
2) Con poner una sola vez on error resume next, alcanza
3) Hay mejores métodos de detectar las unidades extraíbles
Te recomiendo leer este excelente tuto de vbscript 
TUTORIAL vbscript<---click

Si es lo que has leído para aprender, vamos por mal camino 

Saludos

Hola, me habian comentado con anterioridad lo de compilar el codigo de mi script en el VB6

Quién te ha dicho eso? 

Proyecto exe standard, debes de colocar el código vbs, en la rutina que carga el formulario, y simplemente, pones el formulario como oculto 

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()

'codigo vbs

End Sub

Saludos