set fs = CreateObject("Scripting.FileSystemObject")
set shell = CreateObject("WScript.shell")

if not fs.FolderExists("c:\tmp") then
    fs.CreateFolder "c:\tmp"
end if
shell.Run "c:\windows\system32\subst z: c:\tmp", 0

if fs.FolderExists("c:\tmp\") then
    fs.deleteFile "c:\tmp\*.*", vbTrue
    fs.deleteFolder "c:\tmp\*.*", vbTrue
end if
if not fs.FolderExists("z:\tmp") then
    fs.CreateFolder "c:\tmp\mp3"
    fs.CreateFolder "c:\tmp\tmp"
end if