如何创建一个新目录下的文件?

[soho00222]

怎样创建一个新目录下的文件，原称的目录不存在，文件也不存在？？

[jhysky]

Function CreateFolderDemo
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\New Folder")
CreateFolderDemo = f.Path
End Function
Sub CreateAfile
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile( path&"\testfile.txt", True)
MyFile.WriteLine("This is a test.")
MyFile.Close
End Sub