几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量  


返回   几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 » 仿射空间:CAX软件开发(三)二次开发与程序设计 » CAD二次开发 » SolidWorks二次开发
用户名
密码
注册 帮助 会员 日历 银行 搜索 今日新帖 标记论坛为已读


 
 
主题工具 搜索本主题 显示模式
旧 2009-04-13, 12:25 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 【转帖】iterate all drawings in a folder 9and sub-folders0

iterate all drawings in a folder (and sub-folders)
hi,
i'm looking for some sample code that will find all .slddrw files in a folder and it's sub-folders, then place them into an array so that i can iterate through them one by one.
i've looked in the api help samples but havn't found anything yet...
thanks!
zander
scott nelson (zander)
nelson parametrics
scott
two ways that i know of:
use the dir in visual basic following is a sample. change your path to what your folder is. this sample only get the one folder.
sub main()
'gets drawing files
dim filepath as string
dim filename as string
filepath = "c:\solidworks working\04-14-08\"
filename = dir(filepath & "*.slddrw")
do while filename <> ""
filename = dir
debug.print filename
loop
end sub
or check out the filesystemobject in visual basic. you will need to load the reference which is under tools/references and is called "microsoft scripting runtime". check help for folder objects.
dan miel
in vb.net:
imports system.io
sub getallfiles(byval directorypath as string)
dim filecount as integer
dim dircount as integer
dim arrfilenames as string()
dim arrdirectories as string()
dim currentdir as string
currentdir = directorypath
arrfilenames = directory.getfiles(currentdir, "*.slddrw")
for filecount = 0 to ubound(arrfilenames)
allfilenames.add(arrfilenames(filecount))
next
arrdirectories = directory.getdirectories("r:\solidworks\")
for dircount = 0 to ubound(arrdirectories)
getallfiles(currentdir & arrdirectories(dircount))
next
end sub
quick
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)
 


主题工具 搜索本主题
搜索本主题:

高级搜索
显示模式

发帖规则
不可以发表新主题
不可以回复主题
不可以上传附件
不可以编辑您的帖子

vB 代码开启
[IMG]代码开启
HTML代码关闭

相似的主题
主题 主题发起者 论坛 回复 最后发表
【转帖】getting all the features in a feature manager folder yang686526 SolidWorks二次开发 0 2009-04-13 11:04 AM
文件系统的操作 cad DirectDWG 0 2007-01-28 04:26 PM


所有的时间均为北京时间。 现在的时间是 12:32 PM.


于2004年创办,几何尺寸与公差论坛"致力于产品几何量公差标准GD&T | GPS研究/CAD设计/CAM加工/CMM测量"。免责声明:论坛严禁发布色情反动言论及有关违反国家法律法规内容!情节严重者提供其IP,并配合相关部门进行严厉查处,若內容有涉及侵权,请立即联系我们QQ:44671734。注:此论坛须管理员验证方可发帖。
沪ICP备06057009号-2
更多