VB实现批量名称修改
前阵子写了一个目录名/文件名的获取小程序，这两天居然又被名称批量修改麻烦了一下，所以再写一个吧。
注意：你要是只想写一次的话，用批处理更方便。只有多次使用的情况下，自己写程序才有意义。
VB中进行名称修改很容易,用到的就是Name这个函数，用法如下：
Name OldName As NewName，它不仅可以改写名称，而且可以更改目录,比如：
Name "c:\CAN1ED.txt" As "c:\test\CAN01ED.txt"
好了，不多说了，共享代码了：（大家可以参照我的程序来看）http://download.csdn.net/source/1975928
Private Sub Command1_Click() '批量改名
Dim Successstr As String
Dim Successnum As Integer
Dim pathname As String
Dim sf As String
Dim len1, len2, len3 As Integer
Successnum = 0
'比如原文件是有如下几个
'C:\test\【老爸老妈的浪漫史.第三季】.[How.I.Met.Your.Mother][S0301][Chi-Eng][TVrip][624×352].rmvb
'C:\test\【老爸老妈的浪漫史.第三季】.[How.I.Met.Your.Mother][S0302][Chi-Eng][TVrip][624×352].rmvb
'C:\test\【老爸老妈的浪漫史.第三季】.[How.I.Met.Your.Mother][S0303][Chi-Eng][TVrip][624×352].rmvb
'分成如下的三个部分：（text3的??指的是01/02/03这些准备保留的数字）
'text2:C:\test\【老爸老妈的浪漫史.第三季】.[How.I.Met.Your.Mother][S03
'text3:??
'text4:[Chi-Eng][TVrip][624×352].rmvb
len1 = Len(text2) '原文件的前部分字数
len2 = Len(text3) '原文件的需要保留的数字或者字母
len3 = Len(text4) '原文件的后半段字数
If Right(Text1, 1) <> "\" Then
pathname = Text1 & "\"
Else
pathname = Text1
End If
sf = Dir(pathname & "*.*")
Dim tempss As String
Do While sf <> ""
If Left$(sf, len1) = Text2 And Len(sf) = len1 + len2 + len3 Then '左侧匹配
tempss = Left$(sf, len1 + len2)
tempss = Right$(tempss, len2)
Name pathname & sf As pathname & Text5 & tempss & Text7
Successnum = Successnum + 1
Su
相关文档：
一个CommonDialog，一个CommandButton，一个PictureBOX
Option Explicit
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, B ......
Option Explicit
Private Sub Form_Load()
'工程->引用->选中Microsoft ActiveX Data Objects 2.8 Library
Dim shujukulianjie As New ADODB.Connection
Dim jiluji As New ADODB.Recordset
'连接数据库的代码段
shujukulianjie.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Sour ......
vb开发软件是在一定的环境下进行的，如visual basic 6.0 mssql或access等，但是最终软件要给广大群众使用，别人不可能都安装这些东西，所以需要打包，生成安装文件，就想我们下载的很多安装程序，都是打包后的结果！
但是值得注意的是，打包的过程中，有添加，删除组件供你选择，如果用到相对路径，附件，外联� ......
虽然在VB里实现XP风格很简单，但是要使用XP风格同时又让按钮显示图片，则实现起来要麻烦一些，为此，我写了一个控件来实现前述功能，同时让读者可以从中了解XP主题界面的绘制过程。
使用办法很简单，在VB里新建一个工程，然后添加一个控件模块，粘贴以下代码，再将控件放置到窗口即 ......
http://www.webuc.net/ddf3/archive/2005/08/25/6142.aspx
不用FSO的复制文件夹得方法？
用API函数 SHFileOperation
以下是使用SHFileOperation删除复制移动文件的例子，可以复制文件夹
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pfrom As String
pTo As String
fFlags As ......
