How to create a folder in QTP

Example -
Below code will create a folder in QTP
Environment.Value("ResultFolderPath") = "C:\myf"
Set Fo = createobject("Scripting.FilesystemObject")
If Not Fo.FolderExists(Environment.Value("ResultFolderPath")) Then
Fo.CreateFolder ( Environment.Value("ResultFolderPath") )
End If