Ayuda con Javascript o VBS

28/06/2005 - 14:19 por sergio | Informe spam
Los siguientes comandos en Js y Vbs mustran como copiar un archivo a una
carperta especifica (X en este caso).Como puedo hacer lo mismo, pero en vez
de copiar a una carpeta fija, copiar a la carpeta que contiene el perfil del
usuario que inicio sesion es decir "C:\Documents and Setting\<Current User>".
Donde <Current User> es una variable.
Gracias

// JScript.
var FSO = WScript.CreateObject("Scripting.FileSystemObject");
FSO.CopyFile("c:\\COMPlusLog.txt", "c:\\x\\");

' VBScript.
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "c:\COMPlusLog.txt", "c:\x\"
 

Leer las respuestas

#1 Fernando Reyes [MS MVP]
28/06/2005 - 14:44 | Informe spam
Puedes usar el método ExpandEnvironmentStrings del objeto Shell:

// JScript.
var FSO = WScript.CreateObject("Scripting.FileSystemObject");
var obj_Shell = WScript.CreateObject("Wscript.Shell");
FSO.CopyFile("c:\\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\Documents and Setting\%username%"));

' VBScript.
Dim FSO, obj_Shell
Set FSO = CreateObject("Scripting.FileSystemObject")
Set obj_Shell = CreateObject("Wscript.Shell")
FSO.CopyFile "c:\COMPlusLog.txt",
obj_Shell.ExpandEnvironmentStrings("C:\Documents and Setting\%username%")


Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://www.bloglines.com/blog/urpiano

(Deja de hacer el ganso si quieres escribirme)


Fue sergio () quien , con sus deditos,
escribió:

Los siguientes comandos en Js y Vbs mustran como copiar un archivo a
una carperta especifica (X en este caso).Como puedo hacer lo mismo,
pero en vez de copiar a una carpeta fija, copiar a la carpeta que
contiene el perfil del usuario que inicio sesion es decir
"C:\Documents and Setting\<Current User>". Donde <Current User> es
una variable.
Gracias

// JScript.
var FSO = WScript.CreateObject("Scripting.FileSystemObject");
FSO.CopyFile("c:\\COMPlusLog.txt", "c:\\x\\");

' VBScript.
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "c:\COMPlusLog.txt", "c:\x\"

Preguntas similares