- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于文件命名 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=129208)
-- 发布时间：2018/12/24 10:39:00
-- 关于文件命名
怎样选择文件夹并将该文件夹下的所有文件一次性以该文件夹的名字命名呢？
[此贴子已经被作者于2018/12/24 10:45:22编辑过]
-- 发布时间：2018/12/24 11:24:00
--
参考
http://www.foxtable.com/webhelp/scr/0359.htm
http://www.foxtable.com/webhelp/scr/0331.htm
-- 发布时间：2018/12/24 19:23:00
--
怎样获取不含路径的文件夹名和该文件夹下的文件名呢？
-- 发布时间：2018/12/24 19:54:00
--
参考：http://www.foxtable.com/webhelp/scr/1406.htm
-- 发布时间：2018/12/24 20:40:00
--
怎样批量更改某一个文件夹下所有文件名字呀？比如 c:\\我的文件下的“xxxx-foxtable1”、“xxxx-foxtable2”、“xxxx-图片1”、xxxx-图片2等待更名为“ssss-foxtable1”、“ssss-foxtable2”、“ssss-图片1”、ssss-图片2该怎么实现呢？只更改文件名的前部分
-- 发布时间：2018/12/24 21:08:00
--
For Each File As String In FileSys.GetFiles("C:\\我的文件")
Dim name As String = FileSys.GetName(file)
FileSys.RenameFile(file, name.Replace("xxxx-","ssss-"))
Next
-- 发布时间：2018/12/24 21:26:00
--
如果前缀“xxxx”不一样怎么获取呢？不可能一个一个得写出来的
应该截取包括“-”之前的所有的字符就对了，获取后再替换为要改的字符串，怎么获取呢？
Dim dlg As New FolderBrowserDialog
For Each File As String In FileSys.GetFiles(dlg.SelectedPath)
Dim name As String = FileSys.GetName(file)
FileSys.RenameFile(file, name.Replace("xxxx-","ssss-"))
Next
运行后出现错误对话框“路径的形式错误”
[此贴子已经被作者于2018/12/24 21:44:23编辑过]
-- 发布时间：2018/12/24 22:09:00
--
http://www.foxtable.com/webhelp/scr/0359.htm
For Each File As String In FileSys.GetFiles("C:\\我的文件")
Dim name（） As String = FileSys.GetName(file).split（"-"）
if name.length > 1
FileSys.RenameFile(file, "ssss-" & name(1))
end if
Next
[此贴子已经被作者于2018/12/24 22:35:17编辑过]
-- 发布时间：2018/12/24 22:33:00
--
此主题相关图片如下：微信截图_20181224223145.png
-- 发布时间：2018/12/24 22:35:00
--
For Each File As String In FileSys.GetFiles("C:\\我的文件")
Dim name（） As String = FileSys.GetName(file).split（"-"）
if name.length > 1
FileSys.RenameFile(file, "ssss-" & name(1))
end if
Next