锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net批量改文件名 vb 更改文件名

IT技术文件名

批量修改文件名的几种方法操作方法如下：
1、首先打开需要批量修改文件名vb.net批量改文件名的文件；
2、然后在键盘上按ctrl a全?。?
3、然后右击重新命名vb.net批量改文件名，修改文件名；
4、然后敲击回车就完成vb.net批量改文件名了对文件名进行批量修改了 。
扩展资料：
怎么更改文件格式：
1、首先打开一个文件，如图所示；
2、点击上方工具栏中vb.net批量改文件名的“查看”；
3、将左边vb.net批量改文件名的“文件拓展名”勾?。?
4、这时，可以看到图片文件有了后缀名为“jpg”；
5、再右键点击图片，选择重命名，如图；
6、将图片的后缀名改为“png”，如图；
7、这时，系统会弹出一个对话框，选择“确定”；
8、这时 ， 就可以看到文件的格式已经被更改了 。
用VB批量重命名文件 ， 如何实现？方法一：Dim fpPrivate Sub refilename(folderspec)Dim fs, f, f1, fc, sm, hzSet fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)Set fc = f.FilesFor Each f1 In fc
hz = Mid(f1.Name, InStrRev(f1.Name, "."))
Name f1 As fp"20101007-"hz
NextMsgBox "修改完成"End SubPrivate Sub Command1_Click()fp = "E:\emot\xhh\"'这里设置文件夹路径，根的需要来修改
If Right(fp, 1)"\" And Right(fp, 1)"/"
Then fp = fp"\"Call refilename(fp)
’调用上面的自定义函数，改名End Sub........
方法二：'将f:\123\文件下的txt文件改名
Dim files() As String '用于贮存文件名
Dim length As Integer = 0 'files数组长度
Dim fileName As String = Dir$("f:\123\*.txt") '得到第一个.txt文件的文件名
'Dim g As Graphics = Me.CreateGraphics
Do While fileName""
'g.DrawString(length, Font, Brushes.Red, length * 10, length * 10)
ReDim Preserve files(length)
files(length) = fileName
length = files.Length
fileName = Dir$()'得到下一个.txt文件的文件名
Loop
For i = 0 To length - 1
Dim oldfileName As String = "f:\123\"files(i)
Dim newfileName As String = "f:\123\""20101007_"files(i）
Rename(oldfileName, newfileName) '修改文件名
Next
VB如何批量更改文件名？Name 语句
重新命名一个文件、目录、或文件夹 。
语法
NameoldpathnameAsnewpathname
oldpathname --- 原文件名
newpathname --- 新文件名
例如：
Name"闾揿皬骞虫椂浠e?5绔_doc"As"闾揿皬骞虫椂浠e?5绔.doc"
如何用VB批量创建文件夹以及更改文件名在程序所在文件夹创建10个文件夹vb.net批量改文件名，名字分别是1到10vb.net批量改文件名，再在每个文件夹中创建5个子文件夹vb.net批量改文件名，名字分别是1到5vb.net批量改文件名：
For i = 1 To 10
MkDir App.Path"\"i
For j = 1 To 5
MkDir App.Path"\"i"\"j
Next j
Next i
把程序所在文件夹的所有txt文件改名为1.txt、2.txt、3.txt.......n.txt：
d = Dir(App.Path"\*.txt")
n = 1
Do Until d = ""
If dn".txt" Then Name App.Path"\"d As App.Path"\"n".txt"
n = n1
d = Dir
Loop
用VB批量修改文件名'一个command1 一个text1 ,text1.text 是目录
Private Sub Command1_Click()
Text1.Text = Trim(Text1.Text)
Call 重命名文件("File", 1, ".Txt", Text1.Text)
End Sub
Private Sub 重命名文件(固定字段 As String, 浮动字段 As Long, 后缀名 As String, 目录 As String)
If Right(目录, 1)"\" Then 目录 = 目录"\"
If Dir(目录, vbDirectory) = "" Then MsgBox "目录不存在!": Exit Sub
If Left(后缀名, 1)"." Then MsgBox "后缀名错误!": Exit Sub
Dim sDir As String
sDir = Dir(目录"*.*", vbDirectory)
Do While Len(sDir)
If sDir"." And sDir".." Then
If GetAttr(目录sDir) And vbDirectory Then
'如果是目录
Else
Name 目录sDir As 目录固定字段浮动字段后缀名
浮动字段 = 浮动字段1
End If
End If
sDir = Dir
Loop
End Sub
VB批量修改文件名我有dir搜索指定目录所有文件的代码 。改名也很简单，但是你的要求很模糊，如果有意思请详细说明要求，我给你代码，发消息即可 。
【vb.net批量改文件名 vb 更改文件名】关于vb.net批量改文件名和vb 更改文件名的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：如何搭建自己的独立服务器？ 自己怎么建立独立服务器

    下一篇：pg数据库时间存储规范，pg数据库当前时间