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\"

Siga el debate

5 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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\"

Responder a este mensaje

#2 sergio

28/06/2005 - 19:14 | Informe spam

Gracias Fernando, pero no me funciona, al ejecutarlo me crea una archivo sin
extension con el nombre de destino es decir Documents and Settingusuario

"Fernando Reyes [MS MVP]" escribió:

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\"

Responder a este mensaje

#3 Fernando Reyes [MS MVP]

28/06/2005 - 20:30 | Informe spam

Perdona, se me olvidó terminar con \ la ruta; prueba así:

// 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

(No escupas como un árabe para escribirme)

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

Gracias Fernando, pero no me funciona, al ejecutarlo me crea una
archivo sin extension con el nombre de destino es decir Documents and
Settingusuario

"Fernando Reyes [MS MVP]" escribió:

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\"

Responder a este mensaje

#4 sergio

28/06/2005 - 21:27 | Informe spam

Ahora sí funciona, Muchas Gracias. Este script me será de mucha utilidad.

"Fernando Reyes [MS MVP]" escribió:

Perdona, se me olvidó terminar con \ la ruta; prueba así:

// 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

(No escupas como un árabe para escribirme)

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

> Gracias Fernando, pero no me funciona, al ejecutarlo me crea una
> archivo sin extension con el nombre de destino es decir Documents and
> Settingusuario
>
> "Fernando Reyes [MS MVP]" escribió:
>
>> 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\"

Responder a este mensaje

#5 Fernando Reyes [MS MVP]

29/06/2005 - 11:38 | Informe spam

Me alegro -(|:o))

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

(Déjame sin merienda si quieres escribirme)

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

Ahora sí funciona, Muchas Gracias. Este script me será de mucha
utilidad.

"Fernando Reyes [MS MVP]" escribió:

Perdona, se me olvidó terminar con \ la ruta; prueba así:

// 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

(No escupas como un árabe para escribirme)

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

Gracias Fernando, pero no me funciona, al ejecutarlo me crea una
archivo sin extension con el nombre de destino es decir Documents
and Settingusuario

"Fernando Reyes [MS MVP]" escribió:

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\"

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida