Como lançar este script específico de qualquer área de trabalho em qualquer local?

Question

Esta parte parece ser o código a ser modificado:

Set fol = fso.GetFolder("c:\TEST")

Como posso alterar isso para que funcione em qualquer computador de qualquer local / caminho?

Eu precisaria integrar um código adicional que permita que a pessoa

para digitar temporariamente o nome do computador - por exemplo, JOHN-PC / MARY-PC / PAUL-PC

Ele precisa chamar um local / caminho específico ou existe uma maneira de removê-lo completamente?

Dim sName
Dim fso
Dim fol

' create the filesystem object
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

' get current folder
Set fol = fso.GetFolder("c:\TEST")

' go thru each files in the folder
For Each fil In fol.Files
' check if the file name contains underscore
If InStr(1, fil.Name, "john") <> 0 Then
    ' replace underscore with space
    sName = Replace(fil.Name, "john", "dave")
    ' rename the file
    fil.Name = sName
End If
Next

' echo the job is completed
WScript.Echo "Completed!"

    

Answer 1

Você tem várias opções.

1. Você pode basear o caminho do arquivo de %USERPROFILE% - por exemplo, %USERPROFILE%\Downloads\ . Isto lhe dará a pasta Download para o usuário logado atual.

2. Você pode fornecê-lo como argument , mais informações sobre este aqui .

Efetivamente, você chamaria o arquivo com cscript FILE.vbs "C:\Temp\Folder\" e, em seu script, use:

objArgs = WScript.Arguments
Set fol = fso.GetFolder(objArgs(0))

3. O exemplo que você encontrou lhe daria a pasta de trabalho atual. Por exemplo, se o seu VBS estiver em C:\Temp\Test\test.vbs

   Set fol = fso.GetFolder(fso.GetAbsolutePathName("."))

Isso tornaria fol o conteúdo da pasta C:\Temp\Test - Tenha em mente que isso incluiria o seu arquivo VBS que você está executando ..!