Good to Know Database

Aktuelles Arbeitsverzeichnis wechseln


Mit der WScript Shell Eigenschaft CurrentDirectory können Sie das aktuelle Arbeitsverzeichnis in einem Visual Basic Script ändern. Das folgende Beispiel ermittelt wie bereits im Artikel Aktuelles Arbeitsverzeichnis ermitteln beschrieben das aktuelle Arbeitsverzeichnis und zeigt dieses in einer Meldung an. Anschließend wird das Arbeitsverzeichnis mit CurrentDirectory geändert und das neue Arbeitsverzeichnis angezeigt.

Option Explicit

' Declaration of variable
Dim objWScriptShell
Dim objFileSystem
Dim strWorkDir

' Create WScript Shell object
Set objWScriptShell = WScript.CreateObject("WScript.Shell")

' Create object for filesystem access
Set objFileSystem = WScript.CreateObject("Scripting.FileSystemObject")

' Get current working directory
strWorkDir = objFileSystem.GetAbsolutePathName(".")

' Output current working directory
WScript.Echo("Aktuelles Arbeitsverzeichnis: " & strWorkDir)

' Change working directory
objWScriptShell.CurrentDirectory = "C:\Windows\"

' Get current working directory
strWorkDir = objFileSystem.GetAbsolutePathName(".")

' Output current working directory
WScript.Echo("Neues Arbeitsverzeichnis: " & strWorkDir)

' Deallocate filesystem object
Set objFileSystem = Nothing

' Deallocate WScript Shell object
Set objWScriptShell = Nothing

' Quit Visual Basic Script
WScript.Quit()


Dieser Eintrag wurde am 03.02.2013 erstellt und zuletzt am 24.01.2016 bearbeitet.

Direkter Link zu dieser Seite: http://www.gtkdb.de/index_29_2089.html

[ Zur Startseite ]   [ Zur Kategorie ]


Valid XHTML 1.0 Transitional Valid CSS Valid Atom 1.0

© 2004-2018 by Georg Kainzbauer