解析路径和dwg列表

Bryco · 发表于 2006-10-13 13:24:26

我正在尝试创建要使用VBA和Acad 2007处理的dwg文件的文本文件；我想我会使用通用控件对话框，但我找不到要添加的引用&nbsp；我在机器上有C的VS2003和VS2005 express。（仅供参考）；我也有office，我想我在运行XP pro和office 2003
无论如何，我想为用户提供一种指向文件或文件目录的方法，用于批量打印&nbsp；批打印部分已经完成，我只需要创建用于打印的文件&nbsp；有什么想法我需要参考，以获得这个功能？

Bryco · 发表于 2006-10-13 16:05:27

更新我想做的是为一些有挑战的用户制作一个简单的界面&nbsp；我要做的是转到要打印的文件夹，然后键入dir*。图纸/b/s&gt；c： \dwgnum。dat，它创建了一个文件，我的代码可以读取和打印该文件&nbsp；我在想，如果我可以使用“打开”对话框获得一个带有路径的文件夹名，我可以退出并运行DOS命令来创建文件。

Bryco · 发表于 2006-10-13 16:06:21

我曾尝试使用Win API的示例，但我失败了，因此如果我应该这样做，我可以使用一些指针

Bryco · 发表于 2006-10-13 16:13:03

http://vbnet.mvps.org/index.html?code/browse/browseoverview.htm

Bryco · 发表于 2006-10-14 02:22:24

我同意&#039；这相当令人困惑
这里混合了一些不同的功能，包括一些来自Mp&#039；s站点。这基本上是一个处理大部分文件夹和文件的类。BrowseCallbackProc需要在标准模块中。

Bryco · 发表于 2006-10-18 23:08:49

我只是想知道它对你有用吗？

Bryco · 发表于 2006-10-23 13:02:59

对不起，我去度假了4天&nbsp；本人&#039；我今天要试试

Bryco · 发表于 2006-10-23 13:03:34

钓鱼很棒，两天钓了22条鳟鱼。

Bryco · 发表于 2006-10-23 15:33:19

好的，它在这条线上崩溃了

copy

mvarFileName = String(mvarMaxFileSize, 0)

在类init sub中

copy

Private Sub Class_Initialize()
    Set cFiles = New Collection
    mvarMaxFileSize = 256
    mvarFileName = String(mvarMaxFileSize, 0)
    Set Fs = CreateObject("Scripting.FileSystemObject")
End Sub

有什么想法吗&nbsp；看起来演员阵容出了问题

Bryco · 发表于 2006-10-23 17:58:58

您好，我是&#039；我很高兴钓鱼这么好，一定很愉快
关于代码，你有超长的路径名吗
Like over；256长，如果是这样的话，就把256调高；不知道api#039的工作原理；那口井和我&#039；我不确定256是位还是字符，但如果路径真的很长，请尝试512

解析路径和dwg列表

发表回复

精选推荐