hola, ocupando el mismo ejemplo que pusiste:
puedes poner lo siguiente antes de crearel archivo:
Set car = CreateObject("Scripting.FileSystemObject")
Set file = car.CreateFolder("c:\ejemplo")
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("c:/ejemplo/subir.txt", True)
