Dim fso, MyFile, fldSet fso = CreateObject("Scripting.FileSystemObject")Set fld = fso.createfolder("c:\aaa") Set MyFile = fso.CreateTextFile("c:\aaa.txt", True)MyFile.WriteLine("This is a test.")MyFile.Closeip