hala de nuevo necesito ayuda con este vbs, la funcion de este vbs es crear
acceso directo de algún programa o archivo en especifico,
bien lo que quiero es que en ves de crear acceso directo de un archivo, cree
accesos directos de todo lo que se encuentre dentro de una carpeta.
algo como el virus newphototoday
aqui el code para crear accesosdirectos de un archivo:
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Link = WshShell.CreateShortcut("Compensacion Bicentenario.lnk")
With Link
.TargetPath = "%PROGRAMFILES%\Counter-Strike Ultimate Online\LauncherCSU.exe"
.WindowStyle = 1
.Hotkey = ""
.IconLocation = "%PROGRAMFILES%\Counter-Strike Ultimate Online\LauncherCSU.exe"
.Description = ""
.WorkingDirectory = "%PROGRAMFILES%"
.Save
End With
lo que quiero es que en ves de que cree el acceso directo del launcherCSU.exe
cree acceso directo de todo lo que se encuentre en la carpeta- algo como
el valor *.* de batch.
Cita de: **Aincrad** en 27 Julio 2017, 01:21 AMlo que quiero es que en ves de que cree el acceso directo del launcherCSU.exe cree acceso directo de todo lo que se encuentre en la carpeta
Cita de: **Aincrad** en 27 Julio 2017, 01:21 AMalgo como el valor *.* de batch.
Se denominan
DOS Wildcards. El símbolo del asterisco (
* ) hace coincidir con cualquier secuencia de caracteres.
En
Visual Basic Script puedes reproducir el comportamiento del patrón "
*.*" mediante un búcle de tipo
For Each sobre un
Array de objetos
File, con el que puedes iterar todos los archivos contenidos en un directorio específico.
Aquí está todo lo que necesitas saber:
- Scripting.FileSystemObject.GetFolder() Function | MSDN (https://msdn.microsoft.com/en-us/library/f1xtf7ta(v=vs.84).aspx)
- Scripting.FileSystemObject.Folder.Files Property | MSDN (https://msdn.microsoft.com/en-us/library/18b41306(v=vs.84).aspx)
- For Each...Next Statement | MSDN (https://msdn.microsoft.com/en-us/library/tywtbxd0(v=vs.84).aspx)
Saludos!