vba重命名文件
下面的代码将进入一个名为cut_sheets的目录，删除任何现有的pdf文件，并用新选择的超链接pdf文件重新填充。是否可以跳过或重命名任何现有pdf文件，只添加任何新的超链接pdf文件 感谢您的帮助……
Option Explicit
Public Sub Gartner\u Get\u Hyperlink\u Main（）</p ；DimobjBlockAsAcadBlockReference作为对象块参考 ；模糊对象作为身份 ；暗colHyps作为AcadHyperlinks ；将fso设置为文件系统对象 
 
 ；设置fso=New FileSystemObject 
 ；If Len（Dir（ThisDrawing.Path.\Cut Sheets\*.pdf））<&燃气轮机；0然后'；检查当前项目剪切表中是否有任何PDF   ；fso。删除此绘图文件。路径（&P）&引用；\剪切纸张\*。pdf“；，正确'；如果有，请将其删除   ；我是否可以重命名任何现有文件，或者跳过而不删除它们，只添加新文件；s 
 ；如果结束 
 ；对于本图纸中的每个对象。模型空间   ；如果对象的类型是AcadBlockReference，则     ；设置objBlock=objEnt     ；设置colHyps=objBlock。超链接     ；出错时继续下一步'；如果我们遇到任何不'；T有超链接     ；fso。CopyFile colHyps。项（0）。URL，ThisDrawing。路径（&P）&引用；\剪切图纸\“；，正确'；TRUE选项将自动覆盖具有相同名称的任何现有文件   ；如果结束 ；下一个目标 ；设置fso=Nothing
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
Matt感谢您的回复，我应该编写什么代码来跳过现有文件
标记 你可以把它翻过来，搜索那些没有'；不存在
If Not CheckFilesExistance(strFileName) = True then
Msgbox "Do something"
End If 我需要留言箱吗？ 否；您可以用代码替换它以添加新文件。 您必须查看；文件系统对象的复制、复制文件和移动方法：
http://msdn.microsoft.com/en-us/library/6tkce7xa（v=VS.85）。aspx HTH 谢谢Fixo。。。 VBA是一种降级为使用FileSystemObject对象的方法，也可以使用System.IO。是否调用文件类？ 此外，与每次调用时获取/创建FileSystemObject对象的子程序不同，调用函数将FSO作为文件路径的参数提供可能更有效，不是吗？
页:
[1]