Archive for the ‘vbscript’ Category
VBscript: Een map hernoemen
Dit script demonstreert hoe je een map hernoemt met een FSO: Set objFSO = CreateObject("Scripting.FileSystemObject") objFSO.MoveFolder "C:\Temp" , "C:\NieuweNaam"
VBscript: Een map hernoemen (WMI)
Dit script hernoemt de map C:\Temp naar C:\NieuweNaam. strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery ("Select * from Win32_Directory where name = 'c:\\Temp") For Each objFolder in colFolders errResults [...]
VBscript: De eigenschappen van een map ophalen
Alle eigenschappen weergeven van de map C:\Temp. strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService. ExecQuery("Select * from Win32_Directory where name = 'c:\\Temp") For Each objFolder in colFolders Wscript.Echo [...]
VBscript: Een map decomprimeren
De map c:\Temp decomprimeren: strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery ("Select * from Win32_Directory where name = 'c:\\Temp'") For Each objFolder in colFolders errResults = [...]
VBscript: Het mappen dialoogvenster weergeven
Dit script geeft het dialoogvenster weer om een map te selecteren en controleert nadien of deze "alleen lezen" is. Const WINDOW_HANDLE = 0 Const NO_OPTIONS = 0 Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder _ (WINDOW_HANDLE, "Select a folder:", NO_OPTIONS, "C:\Scripts") Set objFolderItem = [...]
VBscript: Gebruik recursie om submappen weer te geven
Dit script geeft alle submappen (en hun submappen) recursief terug: Set FSO = CreateObject("Scripting.FileSystemObject") ShowSubfolders FSO.GetFolder("C:\Temp") Sub ShowSubFolders(Folder) For Each Subfolder in Folder.SubFolders Wscript.Echo Subfolder.Path ShowSubFolders Subfolder Next End Sub
VBScript: Jokertekens gebruiken in een map query
Onderstaand script geeft een lijst terug van mappen die starten met een f: strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery ("Select * from Win32_Directory where Name Like '%c:\\F%'") For Each objFolder in [...]
VBscript: Controleren of een map bestaat
Dit script controleert of de map c:\Temp bestaat: Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists("C:\Temp") Then Set objFolder = objFSO.GetFolder("C:\Temp") Else Wscript.Echo "Folder does not exist." End If
VBscript: Mappen verplaatsen met WMI
Dit script gebruikt WMI om een map te verplaatsen van C:\Temp naar C:\NieuweLocatie. strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colFolders = objWMIService.ExecQuery ("Select * from Win32_Directory where name = 'c:\\Temp") For Each [...]
VBscript: Mappen verplaatsen met het Shell Object
Hier wordt gebruik gemaakt van het Shell object om een map te verplaatsen van c:\Temp naar c:\NieuweTemp. Hierbij worden er een venster getoond dat de vorderingen toont van de verplaatsing. Const FOF_CREATEPROGRESSDLG = &H0& TargetFolder = "C:\NieuweTemp" Set objShell = CreateObject("Shell.Application") Set objFolder = [...]
