Modificación del directorio actual de FileSystemObject

Question

Al utilizar un FileSystemObject, puede hacer referencia al directorio desde el que se ejecutó el script utilizando la ruta ".". ¿Es posible cambiar lo que FileSystemObject cree que es el directorio actual para que pueda usar el "." sintaxis de ruta para otros directorios?

Ejemplo:

Set fso = CreateObject("Scripting.FileSystemObject") 
Set f1 = fso.GetFolder(".") ' Returns the current directory 
Set f2 = fso.GetFolder(".\backup") ' Returns the "backup" directory under the current directory 

Como un ejemplo simplificado, ¿existe un método para pedir a FSO para que el fso.GetFolder ("") llamada devuelve el directorio de copia de seguridad en su lugar?

Answer 1

Puede cambiar la carpeta de trabajo actual para su script con el WshShell.CurrentDirectory propiedad:

Dim oShell : Set oShell = CreateObject("WScript.Shell") 
oShell.CurrentDirectory = ".\backup" 

Y aquí es un Hey, Scripting Guy! artículo sobre el tema: How Can I Change the Working Folder of a Script?

Answer 2

No en general.

Pero por qué no buscar la carpeta actual y almacenarlo:

Set fso = CreateObject("Scripting.FileSystemObject") 
currentPath = fso.GetAbsolutePathName(".")