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

批量修改文件名的几种方法

操作方法如下：

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、这时，就可以看到文件的格式已经被更改了。

相关问答

Q1: 用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

Q2: VB如何批量更改文件名？

Name 语句

重新命名一个文件、目录、或文件夹。

语法

Name oldpathname As newpathname

oldpathname --- 原文件名

newpathname --- 新文件名

例如：

Name "闾揿皬骞虫椂浠e叏25绔_doc" As "闾揿皬骞虫椂浠e叏25绔.doc"

Q3: 如何用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 d  n  ".txt" Then Name App.Path  "\"  d As App.Path  "\"  n  ".txt"

    n = n + 1

    d = Dir

Loop

Q4: 用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

Q5: VB批量修改文件名

我有dir搜索指定目录所有文件的代码。改名也很简单，但是你的要求很模糊，如果有意思请详细说明要求，我给你代码，发消息即可。

关于vb.net批量改文件名和vb 更改文件名的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。