- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 批量改变后缀名 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128007)
-- 发布时间：2018/11/27 9:21:00
-- 批量改变后缀名
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:批量改变后缀名.table |
老师 能请教一下可以批量改变TextBox1指定的文件夹内的后缀名吗？
比如TextBox1是路径，然后在TextBox2输入需要被改变的后缀名，TextBox3输入需要改为的后缀名。感谢 感谢
此主题相关图片如下：qq截图20181127091810.jpg
-- 发布时间：2018/11/27 11:34:00
--
参考代码
Dim path As String = "d:\\"
Dim hz1 As String = ".jpg"
Dim hz2 As String = ".abc"
For Each file As String In FileSys.GetFiles(path)
If file.EndsWith(hz1) Then
FileSys.RenameFile(file, FileSys.GetName(file).Replace(hz1, hz2))
End If
Next