代码修正，转PDF设置路劲后名字如何保持原文件名不变

yangbosnihc

   经典图书

代码修正，转PDF设置路劲后名字如何保持原文件名不变
    Part.SaveAs2 Filename & ".DWG", 0, True, False
    Part.SaveAs2 Filename & ".pdf", 0, True, False
    Filename = Part.SaveAs3("C:\Users\Administrator\Desktop\转图\F.pdf", 0, 0)
   后面是我加的我想固定路劲，但是文件名一直这个，如何保持原文件名称
有没有大师帮忙修天一下

coz000

三楼的帮忙写下呗

tg000057

   经典图书

Path_Name = Part.GetPathName  '原文件完整路径
File_name = Mid(Path_Name, InStrRev(Path_Name, "\") + 1, InStrRev(Path_Name, ".") - InStrRev(Path_Name, "\") - 1) '文件名

F_name = "C:\Users\Administrator\Desktop\转图\"           '输出文件路径


Part.SaveAs2 F_name & File_name & ".DWG", 0, True, False
Part.SaveAs2 F_name & File_name & ".pdf", 0, True, False


这样？

yangbosnihc

tg000057 发表于 2021-12-31 08:23
Path_Name = Part.GetPathName  '原文件完整路径
File_name = Mid(Path_Name, InStrRev(Path_Name, "\") + ...

刚试了一下不成功，原因竟然是要转的格式放在前面不行，然后按你的放在了后面，可以了，谢谢楼上

yangbosnihc

   经典案例图书

tg000057 发表于 2021-12-31 08:23
Path_Name = Part.GetPathName  '原文件完整路径
File_name = Mid(Path_Name, InStrRev(Path_Name, "\") + ...

在请教一个问题，如果这个、转图、文件夹不在，能不能新建一个

tg000057

yangbosnihc 发表于 2021-12-31 14:29
在请教一个问题，如果这个、转图、文件夹不在，能不能新建一个

Path_Name = Part.GetPathName  '原文件完整路径
File_name = Mid(Path_Name, InStrRev(Path_Name, "\") + 1, InStrRev(Path_Name, ".") - InStrRev(Path_Name, "\") - 1) '文件名

F_name = "C:\Users\Administrator\Desktop\转图"           '输出文件路径

F_Arr = Split(F_name, "\")
    For i = 0 To UBound(F_Arr) - 1
        sPathTemp = F_Arr(i) & "\" & F_Arr(i + 1)
      If Dir(sPathTemp, vbDirectory) = "" Then MkDir sPathTemp
        F_Arr(i + 1) = sPathTemp
    Next i

Part.SaveAs2 F_name & "\" & File_name & ".DWG", 0, True, False
Part.SaveAs2 F_name & "\" & File_name & ".pdf", 0, True, False

那就加一段检测并添加目录上去喽