ldh168 发表于 2003-12-31 22:20:00

求助可以打开指定的AUTOCAD文件的可执行程序

求助可以打开指定的AUTOCAD文件的可执行程序，如要打开“d:\0100001.dwg”文件，则把“d:\0100001.dwg”写入交换文件cad.txt中

myfreemind 发表于 2003-12-31 22:34:00

你的意思是打开这个文件的同时并把文件路径写如TXT文件？

ldh168 发表于 2004-1-1 11:28:00

我的意思
动行程序的同时读出TXT文件的路径及文件名然后打开这个文件,(在运行前TXT文件里就有文件的路径及文件名如:d:\010001.dwg)

efan2000 发表于 2004-1-1 23:52:00


Sub test()
   
    ' 创建文件系统对象的实例
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
   
    ' 打开文本文件
    Dim ts As Object
    Set ts = fso.OpenTextFile("cad.txt")
   
    ' 循环读入每一行，判断文件是否存在，存在则打开
    Dim s As String
    Do While Not ts.AtEndOfStream
      s = ts.ReadLine
      If fso.fileexists(s) Then Application.Documents.Open s
    Loop
    ts.Close
    Set ts = Nothing
    Set fso = Nothing
End Sub

my_computer 发表于 2004-1-2 16:36:00

对于你的问题，上述的方法可以解决。但是我推荐你使用Folder对象的文件集合的方式。因为它不需要你提前创建好txt文件。除非你要open的文件你本来就知道。
页: [1]
查看完整版本: 求助可以打开指定的AUTOCAD文件的可执行程序