vb中重命名问题。

答案：先获取文本框的文件名：Function 文件名(FilePath As String) As String
文件名 = Mid$(FilePath, InStrRev(FilePath, "\") + 1) '获取完整文件名
文件名 = Mid(文件名, 1, InStrRev(文件名, ".") - 1) '去除后缀
Dim I As Integer '申明变量
For I = 0 To List1.ListCount - 1 '从列表检查
文件名 = Replace(文件名, List1.List(I), "") '替换文件名的字符串
Next I
If IsNumeric(left(文件名, 5)) = True Then '判断文件名前面的编号
文件名 = right(文件名, Len(文件名) - 6) '除去文件名前的编号
Else '这个相当于"要不然"的意思
DoEvents '释放内存
End If
End Function
然后再复制一个文件
 Dim fso As New FileSystemObject
fso.CopyFile text1.text 新路径.新拓展名
 
用分割把地址的文件名分出来赋给变量
再把变量的名字赋给拓展名不同的名字
name 原文件名 as 新文件名  要拓展名

上一个：vb,next,print
下一个：VB编程问题关于input