VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 113|回复: 1

[求助] VB 如何 按照TEXT逐行 为PDF改名

[复制链接]
发表于 2018-10-23 15:16:18 | 显示全部楼层 |阅读模式
VB 如何 按照TEXT逐行 为PDF改名

详见图片 求高手帮我改改 非常感谢。

想实现 逐行 按照TEXT1内容

实现改名

比如

01.pdf 改为 张三.pdf

02.pdf 改为 李四.pdf

03.pdf 改为 王五.pdf

04.pdf 改为 陈留.pdf


但现在却无法实现。



  1. Private Sub Command1_Click()


  2. On Error Resume Next
  3. Dim dir1 As String, tmp As Integer
  4. dir1 = Dir("c:\vb\*.pdf")
  5. If dir1 <> "" Then MkDir "c:\vb\vb1"
  6. While dir1 <> ""
  7. tmp = Split(dir1, ".")(0)
  8. If tmp <> 0 Then

  9. Dim a() As String
  10. a = Split(Text1, vbCrLf)
  11. For i = 0 To UBound(a)
  12. Debug.Print a(i)

  13. Name "c:\vb" & dir1 As "c:\vb\vb1" & (tmp) & a(i) & ".pdf"

  14. Next

  15. End If

  16. dir1 = Dir

  17. Wend
  18. MsgBox "ok"

  19. End Sub

复制代码
发表于 2018-11-6 16:06:14 | 显示全部楼层
tmp = Split(dir1, ".")(0)
If tmp <> 0 Then
Name "c:\vb" & dir1 As "c:\vb\vb1" & (tmp) & a(i) & ".pdf"
tmp返回的是数组,你的用法不对, Split用法也不对,把上面三句改为下面的三句。
tmp = Split(dir1, ".")
If tmp(0) <> 0 Then
Name "c:\vb" & dir1 As "c:\vb\vb1" & a(i) & ".pdf"
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2018-11-16 14:16

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表