Código
ObjCopy.CopyFile "festo\programas\*", "C:\Users\"+UserName+"\AppData\Roaming\Microsoft\Windows\Start Menu\Programs", true
Mi idea seria cambiar los atributos antes y despues de esta linea, ¿que me aconsejan? gracias
Código
Dim objUrl, objUser, objCopy, Ruta Set objUrl = CreateObject("Scripting.FileSystemObject") Set objUser = CreateObject("WScript.Network") Set objCopy = createobject("scripting.filesystemobject") UserName = objUser.UserName If Not objUrl.FolderExists("c:\festo") Then MsgBox "Instalar", , "Festo" ObjCopy.CopyFolder "festo/c", "c:/festo", true If objUrl.FolderExists("C:\Users\"+UserName+"\Desktop") Then ObjCopy.CopyFile "festo\programas\*", "C:\Users\"+UserName+"\Desktop", true MsgBox "Instalado" Else ObjCopy.CopyFile "festo\archivos\Festo\*.lnk", "C:\Documents and Settings\"+UserName+"\Escritorio", true ObjCopy.CopyFolder "festo\archivos", "C:\Documents and Settings\"+UserName+"\Menú Inicio\Programas", true MsgBox "Instalado", , "Festo" End If End If