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úCitarMe podrian explicar que es el "directory listing"
Citary el "flag"
Citar*.vbs es Visual Basic?
set objfso = createobject("scripting.filesystemobject")
set carpeta = objfso.getfolder("c:\carpetaorigen")
' determinamos el objeto carpeta
set archivos = carpeta.files
' devolvemos la coleccion de archivos de la carpeta
randomize()
' iniciamos la variable para que el random sea distinto cada vez
numero = int((archivos.count*rnd)+1)
' numero entero al azar entre 1 y el total de archivos de la carpeta
n = 0
For each a in archivos
' bucle por cada uno de los archivos de la carpeta
if n = numero then
objfso.copyfile a.path, "c:\carpetadestino\" & a.name
wscript.quit
' recorre cada uno de los archivos y si la variable n es igual al numero sorteado
' entonces copia el archivo a la carpeta destino, manteniendo el nombre
' y luego termina el script
else
n = n + 1
' sino, le suma 1 a la variable y vuelve a comenzar
end if
next
echo msgbox "esto es una prueba" >> c:\unarchivo.vbs
set objshell = createobject("wscript.shell")
objshell.run "iexplore", hide
Cita de: Otto VanHackman en 12 Enero 2008, 02:27 AMCita de: Vlad_Asen en 11 Enero 2008, 02:57 AM
Yo mis batch los convierte en exe con el WinRar. Quedan muy bien
Eso es sencillamente imposible...
CitarSTART ["título"] [/Druta] [/I] [/MIN] [/MAX] [/SEPARATE | /SHARED]
[/LOW | /NORMAL | /HIGH | /REALTIME | /ABOVENORMAL | /BELOWNORMAL]
[/WAIT] [/B] [comando o programa]
[parámetros]
"título" Texto que se mostrará en la barra de título de la ventana.
ruta Directorio de inicio.
B Inicia la aplicación sin crear una ventana. La aplicación
no controla la funcionalidad de ^. A menos que la aplicación
habilite el procesamiento de ^C processing, ^Pausa es la
única manera de interrumpir la aplicación.