vb中重命名问题。
把text文本框中的文件地址改为同目录下同名字但拓展名不一样的文件。text中的文件地址是根据你所选文件不断变化的。用 name "&text1.text&"AS "&text1.text"怎么改的。行不通啊
当前位置：编程学习 > VB >>
text中的文件地址是根据你所选文件不断变化的。用 name "&text1.text&"AS "&text1.text"怎么改的。行不通啊
text中的文件地址是根据你所选文件不断变化的。用 name "&text1.text&"AS "&text1.text"怎么改的。行不通啊
答案：先获取文本框的文件名：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
- 更多VB疑问解答：
- 批处理转移文 之errorlevel
- vb 6.0 调用vb.net dll混合程序集错误
- VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
- 求助在Dir1控件当前目录下新建一个文件夹的代码
- CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
- 有两个磁盘阵列,如何使用能达到最好的效果
- cloudStack 如何实现 vSphere的DRS功能
- 和难缠客户的那些事儿
- 批处理转移文 之errorlevel
- vb 6.0 调用vb.net dll混合程序集错误
- VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
- 求助在Dir1控件当前目录下新建一个文件夹的代码
- CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
- 有两个磁盘阵列,如何使用能达到最好的效果
- cloudStack 如何实现 vSphere的DRS功能