VBScriptben hogy írom meg, hogy ne egy Filet hozzon létre, hanem egy mappát?

------------------------------------------------------

Dim oFolder, oFSO, filenev

Set oFSO= CreateObject( "Scripting.FileSystemObject")

filenev= "asd.txt"

Set oFolder= oFSO.GetFolder( ".")

filenev= oFolder.Path& "\"& filenev

Set listafile= oFSO.CreateTextFile( filenev)

Set listafile= Nothing

Set listafile= oFSO.OpenTextFile( filenev, 2)

listafile.WriteLine("asd")

listafile.Close

-------------------------------------------------------

Ha ezt a kódot elindítunk egy vbscriptben, akkor ezt azt tudja hogy abban a mappában, ahol megnyitottuk, ott generál egy txt filet, amiben van egy asd szöveg.

Hogy oldom meg, vagy hogy írom át, hogy létrehozzon egy mappát, abban a mappában, amiben megnyitottam a vbst.