在VBS中，您可以使用FileSystemObject對象的CreateTextFile方法來創建一個文本文件。下面是一個使用CreateTextFile方法創建文本文件的示例：
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("C:\path\to\file.txt", True)
在上面的示例中，我們首先創建了一個FileSystemObject對象（使用CreateObject函數），然后使用其CreateTextFile方法創建一個名為"file.txt"的文本文件，并指定了文件的完整路徑（"C:\path\to"為文件的目錄）。第二個參數（True）表示如果文件已存在，則覆蓋現有文件。
您還可以選擇性地指定第三個參數，該參數是一個布爾值，用于指定是否將文件以Unicode格式保存。如果將第三個參數設置為True，則文件將以Unicode格式保存。默認情況下，文本文件以ASCII格式保存。
創建文本文件后，您可以使用file.WriteLine方法將文本寫入文件中。以下是一個完整的示例：
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.CreateTextFile("C:\path\to\file.txt", True)
file.WriteLine "Hello, World!"
file.WriteLine "This is a sample text."
file.Close
在上面的示例中，我們使用file.WriteLine方法將兩行文本寫入文件中。最后，使用file.Close方法關閉文件。
希望這可以幫助到您！
