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

ldh168

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

myfreemind

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

ldh168

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

efan2000

2. 
   
3. Sub test()
   
4.    
   
5.     ' 创建文件系统对象的实例
   
6.     Dim fso As Object
   
7.     Set fso = CreateObject("Scripting.FileSystemObject")
   
8.    
   
9.     ' 打开文本文件
   
10.     Dim ts As Object
    
11.     Set ts = fso.OpenTextFile("cad.txt")
    
12.    
    
13.     ' 循环读入每一行，判断文件是否存在，存在则打开
    
14.     Dim s As String
    
15.     Do While Not ts.AtEndOfStream
    
16.         s = ts.ReadLine
    
17.         If fso.fileexists(s) Then Application.Documents.Open s
    
18.     Loop
    
19.     ts.Close
    
20.     Set ts = Nothing
    
21.     Set fso = Nothing
    
22. End Sub
    

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

my_computer

对于你的问题，上述的方法可以解决。但是我推荐你使用Folder对象的文件集合的方式。因为它不需要你提前创建好txt文件。除非你要open的文件你本来就知道。