Question

solidworks VBA 窗体

首先打开一个装配体，窗体要实现的功能就是把这个装配体本身极其所含的零件转存到另一个文件夹。
如图

我的方法是首先找到打开的装配体的路径，然后遍历这个文件夹。运行窗口点打开按钮之后，由于这3个文件正在打开，又产生了3个临时文件在listbox里，这个问题该怎么解决呢？还有一个很重要的问题是，我的代码只能针对装配体和它的零件是存放在一个文件夹的，要是不在一个文件夹就不对了。请高手多多指教。。。。。跪求了，，再次跪求了。。。 另存这个按钮不一定要做的。好了直接上传宏到百度知道或网盘就好了。 分不多，都给了。
另附我的代码：
Dim swApp As SldWorks.SldWorksDim swModel As SldWorks.ModelDoc2Dim strFolderName As StringDim fs, fl, fls, foldPrivate Sub CommandButton1_Click() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc strFolderName = Left(swModel.GetPathName, InStrRev(swModel.GetPathName, "\")) TextBox1.Text = strFolderName Debug.Print strFolderName Set fs = CreateObject("Scripting.FileSystemObject") Set fold = fs.getfolder(strFolderName) Set fls = fold.Files For Each fl In fls ListBox1.AddItem fl.Name Next
End Sub

Answer 1

这里桥裤加个判断把临敏野简时文件给排除掉
For Each fl In fls
if left(fl.Name,1)<>"~" then ListBox1.AddItem fl.Name
Next

装配体和零件可不可以在不同文件夹 下这个问题，应该都是在同一个文件夹下的， 由于这款软件我也脊态没用过，所以没法肯定。

Answer 2

SW不是本身就是，打包功能，可以实现把这个装配体本身极其所含的零件转存到另纤仔一个文件夹，卖缺没必要中竖辩用VBA吧

Answer 3

把这个装配体打开。然后用程序删这个文件夹中的每一个零部件。