如何在CAD二次开发中创建文本文件并写入一些数据

jiavia

如题

老鼠骑猪

Open ThisDrawing.Path & "\PassWord.txt" For Output As #1  '打开文本文件
Print #1, "图纸名:" & ThisDrawing.FullName & "  密码:" & pass.Text '写入数据
Close #1 '关闭文本文件

icy85

楼上的可以，还可以用textstream

fileName＝ThisDrawing.Path & "\test.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile(fileName, True)

f.WriteLine "test"

nhy12345678

我的代码更简单:

Open "c:\bott.txt" For Output As #1
Print #1, "这里写入文件内容"
Close #1