重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
把D:\test\目录下的所有jpg文件重命名为pic###.jpg的代码:
吉安网站制作公司哪家好,找成都创新互联公司!从网页设计、网站建设、微信开发、APP开发、响应式网站设计等网站项目制作,到程序开发,运营维护。成都创新互联公司公司2013年成立到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联公司。
Dim i As Integer
i = 1
Set fs = CreateObject("scripting.filesystemobject")
Set fd = fs.GetFolder("d:\test")
For Each f In fd.Files
If LCase(f.ShortName) Like "*.jpg" Then
f.Name = "pic" Format(i, "000") ".jpg"
i = i + 1
End If
Next
如果文件名已确定,可以用Set f=fs.GetFile("[完整路径和文件名]"),然后用f.Name="[新文件名]"
另外提问的时候要注意把已知的条件和要达到的效果说清楚,“已知文件名的若干文件”到底是什么样的文件名,有没有什么规律?是否在同一文件夹下?或者是否已将文件名存放在一个字符串数组中?不说清楚别人怎么能帮你,只能给你一个实现的思路了
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FileSystemWatcher1.NotifyFilter = IO.NotifyFilters.DirectoryName Or IO.NotifyFilters.FileName‘监控文件夹和文件。
FileSystemWatcher1.IncludeSubdirectories = True’监控子文件夹
End Sub
Private Sub FileSystemWatcher1_Renamed(sender As Object, e As IO.RenamedEventArgs) Handles FileSystemWatcher1.Renamed
MsgBox(e.FullPath vbCrLf e.Name)
End Sub'捕获新路径
你监控test不就好了,若要排除其他文件夹,IncludeSubdirectories 设为假,用多个FileSystemWatcher就行了,用数组或其他方式创建。
Microsoft.VisualBasic.FileSystem.Rename(原文件夹完整路径名称,新的文件夹名称)
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\1")‘当路径不对时会把原文件夹剪切到“D:\2\”下面文件夹名称不变
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2\2")")‘当路径不对时会把原文件夹剪切到“D:\2\”下面文件夹名称 更改为 2
Microsoft.VisualBasic.FileSystem.Rename("D:\1", "D:\2")’当路径相同时只改文件夹名称 不移动文件
希望能帮到你
打包过程:
1、打开自己已经创建好的VB.NET项目(一般一开始创建项目的时候创建的是Windows窗体应用程序)。
2、点“文件”--“新建项目”--“其他项目类型”--“安装部署”--“Visual Studio Installer”--“安装项目”,输入项目名称(此处命名为setup1)并点击“确定”。
3、执行完上一步,在解决方案下面会出现setup1项目。右击setup1项目--“添加”--“项目输出”。
4、在“添加项目输出组”中,选择“主输出”,然后单击“确定”。将自动添加所有依赖项。
5、在解决方案资源管理器中,右击安装项目---“添加”---“合并模块”。 把相关模块添加进来。
6、在文件系统选项卡中添加所需的应用程序图标等文件,并生成应用程序的桌面快捷方式,在快捷方式上右键选择属性,并在属性栏中的图标处选择应用程序快捷方式图标。(要在用户桌面和用户的“程序”菜单属性里将AlwaysCreate属性的值修改为True)。这样安装完程序后就可以看到桌面的图标了
7、关于应用程序图标的详细说明:
(1)点击“应用程序文件夹”并在右侧的列表中的“主输出来自。。”上右键然后点击“创建主输出来自。。的快捷方式”
(2)把生成的快捷方式复制到“用户桌面”,然后右键重命名为你想要在程序安装后显示的名字。
(3)重命名完成后在右侧的属性栏中点击图标设置为自己想要的图标,注意,需要先把图标文件ico加入到“应用程序文件夹”中。(ico的制作:先做好256*256的png文件,然后百度ico制作找到在线制作ico的网站,直接生成ico图标文件)
关于安装后的一些属性的设置: