立即注册 登录
VB爱好者乐园(VBGood) 返回首页

VBProFan的个人空间 http://blog.vbgood.com/?85054 [收藏] [复制] [分享] [RSS]

日志

一个重命名文件模板

热度 1已有 744 次阅读2012-10-22 16:44 | 命名

Option Explicit

Private Sub Form_Load()
  f.Path = "C:\Documents and Settings\xxzx1\桌面\翻译"
  Dim i As Byte
  Dim s1 As String, s2 As String, s As String
  
  ChDrive f.Path
  ChDir f.Path
  For i = 0 To f.ListCount - 1
    If Left(f.List(i), 1) = "第" Then
      s1 = Split(f.List(i))(0)
      s2 = Split(f.List(i))(1)
      s = "Lesson " & IIf(i + 1 < 10, "0", "") & CStr(i + 1) & "-" & s2
      Name f.List(i) As s
    End If
  Next i
End Sub

1

路过

雷人

握手

鲜花

鸡蛋

刚表态过的朋友 (1 人)

发表评论 评论 (3 个评论)

回复 acme_pjz 2012-10-22 21:56
神马东西?
回复 VBProFan 2012-10-29 17:00
acme_pjz: 神马东西?
Name f.List(i) As s 这句是核心
回复 acme_pjz 2012-10-29 17:23
VBProFan: Name f.List(i) As s 这句是核心
f是FileListBox这才是核心 我还以为是普通的ListBox呢

facelist doodle 涂鸦板

您需要登录后才可以评论 登录 | 立即注册

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

GMT+8, 2019-9-19 10:41

VB爱好者乐园(VBGood)
返回顶部