vba重命名文件

krampaul82 · 发表于 2011-10-19 10:26:46

下面的代码将进入一个名为cut_sheets的目录，删除任何现有的pdf文件，并用新选择的超链接pdf文件重新填充。是否可以跳过或重命名任何现有pdf文件，只添加任何新的超链接pdf文件&nbsp
感谢您的帮助……
Option Explicit
Public Sub Gartner\u Get\u Hyperlink\u Main（）</p&nbsp；DimobjBlockAsAcadBlockReference作为对象块参考&nbsp；模糊对象作为身份&nbsp；暗colHyps作为AcadHyperlinks&nbsp；将fso设置为文件系统对象&nbsp
&nbsp
&nbsp；设置fso=New FileSystemObject&nbsp
&nbsp；If Len（Dir（ThisDrawing.Path.\Cut Sheets\*.pdf））&lt&燃气轮机；0然后&#039；检查当前项目剪切表中是否有任何PDF&nbsp&nbsp&nbsp；fso。删除此绘图文件。路径（&P）&引用；\剪切纸张\*。pdf“；，正确&#039；如果有，请将其删除&nbsp&nbsp&nbsp；我是否可以重命名任何现有文件，或者跳过而不删除它们，只添加新文件；s&nbsp
&nbsp；如果结束&nbsp
&nbsp；对于本图纸中的每个对象。模型空间&nbsp&nbsp&nbsp；如果对象的类型是AcadBlockReference，则&nbsp&nbsp&nbsp&nbsp&nbsp；设置objBlock=objEnt&nbsp&nbsp&nbsp&nbsp&nbsp；设置colHyps=objBlock。超链接&nbsp&nbsp&nbsp&nbsp&nbsp；出错时继续下一步&#039；如果我们遇到任何不&#039；T有超链接&nbsp&nbsp&nbsp&nbsp&nbsp；fso。CopyFile colHyps。项（0）。URL，ThisDrawing。路径（&P）&引用；\剪切图纸\“；，正确&#039；TRUE选项将自动覆盖具有相同名称的任何现有文件&nbsp&nbsp&nbsp；如果结束&nbsp；下一个目标&nbsp；设置fso=Nothing

Matt__W · 发表于 2011-10-19 10:35:09

copy

Public Function CheckFilesExistance(strFileName As String) As Boolean
    Dim FSO As FileSystemObject
    Set FSO = New FileSystemObject
    CheckFilesExistance = FSO.FileExists(strFileName)
    Set FSO = Nothing
End Function
If CheckFilesExistance(strFileName) = True then
    Msgbox "Skip existing file"
Else
    Msgbox "Do something"
End If

krampaul82 · 发表于 2011-10-20 12:23:35

Matt感谢您的回复，我应该编写什么代码来跳过现有文件
标记

Matt__W · 发表于 2011-10-20 13:47:15

你可以把它翻过来，搜索那些没有&#039；不存在

copy

If Not CheckFilesExistance(strFileName) = True then
    Msgbox "Do something"
End If

krampaul82 · 发表于 2011-10-20 13:54:26

我需要留言箱吗？

Matt__W · 发表于 2011-10-20 13:55:35

否；您可以用代码替换它以添加新文件。

krampaul82 · 发表于 2011-11-12 17:00:30

您必须查看；文件系统对象的复制、复制文件和移动方法：
http://msdn.microsoft.com/en-us/library/6tkce7xa（v=VS.85）。aspx HTH

BlackBox · 发表于 2011-12-12 17:10:08

谢谢Fixo。。。

BlackBox · 发表于 2011-12-13 01:47:31

VBA是一种降级为使用FileSystemObject对象的方法，也可以使用System.IO。是否调用文件类？

krampaul82 · 发表于 2011-12-13 01:49:54

此外，与每次调用时获取/创建FileSystemObject对象的子程序不同，调用函数将FSO作为文件路径的参数提供可能更有效，不是吗？

vba重命名文件

发表回复

精选推荐