解析路径和dwg列表

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

我正在尝试创建要使用VBA和Acad 2007处理的dwg文件的文本文件。我以为我会使用公共控件对话框，但我找不到要添加的引用。我在机器上有VS2003和VS2005 Express for C#。（以防万一）我也有办公室，我想我运行XP Pro和Office 2003。
无论如何，我想给用户一种方法来指向文件或文件目录以进行批量打印。批量打印部分已完成，我只需要创建用于打印的文件即可。任何想法，我需要参考什么来获得这个功能？

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

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

更新
我试图做的是为我的一些受挑战的用户制作一个简单的界面。我要做的是转到要打印的文件夹，然后键入
dir *.dwg /b/s > c：\dwgnum.dat
这将创建一个我的代码读取和打印的文件。我在想，如果我可以使用打开的对话框来获取带路径的文件夹名称，我就可以扩展并运行我的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

我同意这很令人困惑
这里混合了一些不同的功能，包括一些来自Mp网站的功能。这基本上是一个完成大部分文件夹、文件处理工作的类。BrowseCallbackProc需要在标准模块中。

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

CmdrDuh，只是想知道它是否对你有用？

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

对不起，我去度假了4天。我今天要尝试一下

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

钓鱼很棒，2天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

有什么想法吗？看起来像是演员阵容出了问题。

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

嗨，CmdrDuh，我很高兴钓到这么好的鱼，一定玩得很开心。
关于代码，您是否有非常长的路径名？
喜欢256以上的长，如果是这样就上256。
我不太了解api的工作方式，也不确定256是位还是字符，但是如果路径非常长，请尝试512

解析路径和dwg列表

发表回复

精选推荐

浏览过的版块