Membuat Folder Full Path dengan VBScript

Untuk membuat Folder Full Path dengan VBScript ada beberapa hal yang harus dilakukan.

• Buka Notepad, dengan cara klik ‘Run…’ lalu ketikan ‘Notepad’ dan klik OK.
• Notepad akan muncul. Masukkan script di bawah ini :

‘ Example file script0401.vbs set fso = CreateObject(“Scripting.FileSystemObject”) CreateFullPath “c:\myscript\output” ‘ ——————————————————————— ‘ Subroutine CreateFullPath creates the folder specified by ‘path,’ ‘ creating any intermediate folders as necessary. (Note: parameter ‘path’ ‘ is specified as ‘byval’ because we modify it inside the subroutine). ‘ ——————————————————————— sub CreateFullPath (byval path) dim parent ‘ temporary variable path = fso.GetAbsolutePathname(path) ‘ be sure path is fully qualified parent = fso.GetParentFolderName(path) ‘ get name of parent folder if not fso.FolderExists(parent) then ‘ if parent(s) does not exist… CreateFullPath parent ‘ …create it end if if not fso.FolderExists(path) then ‘ if subfolder does not exist… fso.CreateFolder(path) ‘ …create it. end if

• Simpan file tersebut dengan nama bebas ditambah ‘.vbs’ (ekstensi vbs) dan ingat Save as type nya harus All Files.