VB.NET复制/移动/重命名工具

Excel_VBA创维大表格จุ๊บ

已于 2022-04-02 16:11:01 修改

阅读量895

点赞数

分类专栏： VBA vsto插件开发 VBA系统文章标签： .net linq c#

于 2022-03-12 19:49:08 首次发布

本文链接：https://blog.csdn.net/weixin_44681501/article/details/123449018

版权

VBA系统同时被 3 个专栏收录

50 篇文章 9 订阅

订阅专栏

vsto插件开发

42 篇文章 12 订阅

订阅专栏

VBA

16 篇文章 1 订阅

订阅专栏

窗体重命名================================================================

Private Sub 批量重命名_Click()
    
    '获取旧文件名
Dim a

a = Dir("D:\C-Free 5\")
For i = 117 To 118        '暂定1个文件
    Range("a" & i) = Dir
    Name "D:\C-Free 5\bar_back.bmp" As "D:\1bar_back.bmp"                '注意 ，要带上文件夹路径  as  新路径\新文件名.新格式
Next


End Sub

Sub 文件重命名_宏()                        
      旧文件路径 = InputBox("请输入旧文件路径", "重命名", "C:\上帝模式.txt")
      新文件路径 = InputBox("请输入新文件路径", "重命名", "C:\上帝开挂模式.txt")
      Name 旧文件路径 As 新文件路径
End Sub