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
相关文档：
webbrowser 不能收到SendMessage的消息
主要是因为1webbrowser 的句柄找不到。经过努力搜索，终于解决了。做个记录.
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ......
Dim p(10000, 1) As Double
Dim num As Integer
Dim ptx As Single
Dim pty As Single
Dim w0, w1, w2, w3 As Single
Private Sub Command1_Click()
Dim t As Single
Dim i As Integer
Dim f0, f1, f2, f3 As Single
Picture1.DrawWidth = 3
For t = 0 To 1 St ......
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Priva ......
vb开发软件是在一定的环境下进行的，如visual basic 6.0 mssql或access等，但是最终软件要给广大群众使用，别人不可能都安装这些东西，所以需要打包，生成安装文件，就想我们下载的很多安装程序，都是打包后的结果！
但是值得注意的是，打包的过程中，有添加，删除组件供你选择，如果用到相对路径，附件，外联� ......
一 木马的由来
木马，即“特洛伊木马”（trojan horse）。
二 所需要的技术
一个成功的木马，除了制作出相关的程序以外，还需要实现以下几方面的功能。1，木马的隐藏 2，木马的运行 3，木马的复制 4，木马的传播等 ......
