vb文件夾更名

❶ VB給文件重命名

使用 Name 語句來更改文件的名稱。示例中假設所有使用到的目錄或文件夾都已存在。

Dim OldName, NewName
OldName = "OLDFILE": NewName = "NEWFILE" ' 定義文件名。
Name OldName As NewName ' 更改文件名。

OldName = "
C
:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
Name OldName As NewName ' 更改文件名，並移動文件。

其它：
使用shell語句來調用dos命令rename。

❷ VB中重命名文件名

把D:\test\目錄下的所有抄jpg文件重命名為pic###.jpg的代碼襲：
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="[新文件名]"
另外提問的時候要注意把已知的條件和要達到的效果說清楚，「已知文件名的若干文件」到底是什麼樣的文件名，有沒有什麼規律？是否在同一文件夾下？或者是否已將文件名存放在一個字元串數組中？不說清楚別人怎麼能幫你，只能給你一個實現的思路了

❸ 用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 "原文件名" As "新文件名"

第二種
FileCopy "原文件名", "新文件名"
Kill "原文件名"

❺ vb文件夾內文件批量重命名

❻ VB 如何重命名文件夾 請給個思路 謝謝！

重命名Name "F:\x.txt（原文件路徑名）" As "F:\f.txt（要改的名字）"
又或者 FileCopy "原文件路徑名", "要改為的路徑名"
Kill "原文件路徑名"