Dim WshShell, currDir, oFSO
Set WshShell = WScript.CreateObject("WScript.Shell")
'WScript.Echo WshShell.CurrentDirectory
currDir = WshShell.CurrentDirectory

Set oFSO = CreateObject("Scripting.FileSystemObject")
' Create a new folders
oFSO.CreateFolder currDir & "\EFTClient"
oFSO.CreateFolder currDir & "\EFTClient\Account"
oFSO.CreateFolder currDir & "\EFTClient\Shared"
oFSO.CreateFolder currDir & "\EFTClient\Shared\images"
oFSO.CreateFolder currDir & "\EFTClient\jument"
oFSO.CreateFolder currDir & "\EFTClient\jument\ng-views"
oFSO.CreateFolder currDir & "\EFTClient\jument\images"
oFSO.CreateFolder currDir & "\EFTClient\jument\styles"
oFSO.CreateFolder currDir & "\EFTClient\jument\styles\defaults"
oFSO.CreateFolder currDir & "\EFTClient\jument\styles\defaults\styles"



' Copy a file into the new folder
' Note that the destination folder path must end with a path separator (\)
oFSO.CopyFile currDir & "\public\EFTClient\Account\Log*n.htm", currDir & "\EFTClient\Account"
oFSO.CopyFile currDir & "\public\EFTClient\jument\styles\*.css", currDir & "\EFTClient\jument\styles"
oFSO.CopyFile currDir & "\public\EFTClient\jument\styles\defaults\styles\*.css", currDir & "\EFTClient\jument\styles\defaults\styles"
oFSO.CopyFile currDir & "\public\EFTClient\jument\ng-views\v.head*.html", currDir & "\EFTClient\jument\ng-views"
oFSO.CopyFile currDir & "\public\EFTClient\Shared\*.css", currDir & "\EFTClient\Shared"

wscript.echo "Script Completed"