-----ayuda con vbs------

[**Aincrad**]

 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:

Código (bash) [Seleccionar] Expandir


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.

[Eleкtro]

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.

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
• Scripting.FileSystemObject.Folder.Files Property | MSDN
• For Each...Next Statement | MSDN

Saludos!