|
E:\RECYCLER\S-1-5-21-515967899-839522115-1343024091-500\De1\铝溶液反应器\上筒体.SLDASM
E:\RECYCLER\S-1-5-21-515967899-839522115-1343024091-500\De1\铝溶液反应器\上筒体.SLDPRT
E:\RECYCLER\S-1-5-21-515967899-839522115-1343024091-500\De1\铝溶液反应器\上筒体补强圈模板.SLDPRT
E:\RECYCLER\S-1-5-21-515967899-839522115-1343024091-500\De1\铝溶液反应器\下封头-补强圈.SLDPRT
E:\RECYCLER\S-1-5-21-515967899-839522115-1343024091-500\De1\铝溶液反应器\下封头.SLDASM
E:\RECYCLER\S-1-5-21-515967899-839522115-1343024091-500\De1\铝溶液反应器\下封头.SLDPRT
E:\RECYCLER\S-1-5-21-515967899-839522115-1343024091-500\De1\铝溶液反应器\下筒体.SLDASM
E:\RECYCLER\S-1-5-21-515967899-839522115-1343024091-500\De1\铝溶液反应器\下筒体.SLDPRT
用下面代码,发现硬盘有如上的文件,相当占计算机硬盘空间。
问这些文件如何删除,
excel的VBA代码如下
- Sub FileList() Dim Fso As New FileSystemObject, Fld As Folder, F As File Set Fld = Fso.GetFolder(ThisWorkbook.Path) Set Fld = Fso.GetFolder("E:") '' For Each F In Fld.Files 'Debug.Print F.Name Next GetFolderFile FldEnd Sub
- Function GetFolderFile(Fld) Dim FSB As Folders, Fd As Folder, F As File Set FSB = Fld.SubFolders For Each Fd In FSB t = 0 For Each F In Fd.Files Debug.Print F.Path Next GetFolderFile Fd NextEnd Function
复制代码
|
|