『壹』 VB 如何重命名文件夹 请给个思路 谢谢！
重命名Name"F:\x.txt（原文件路径名）"As"F:\f.txt（要改的名字）"又或者FileCopy"原文件路径名","要改为的路径名"Kill"原文件路径名"再看看别人怎么说的。
『贰』 vb文件夹内文件批量重命名
『叁』 VB 获取指定文件夹下的文件夹名
考虑到文件夹下可能有相同的文件夹名,所以我没有用combo控件,因为即便把所有的文件夹列到了combo里,点删除的时候并不能判断这个文件夹到底是删除哪个文件夹下的这个文件夹 (除非显示着一个路径) 把下面的内容保存到记事本,并重命名为 Form1.frm 然后用VB打开 运行就可以了..你把编译好的EXE文件放到你的那个目录下,程序里的目录就是自动获取的当前目录.. 用drivelistbox 和 dirlistbox 这两个控件非常容易解决..'—-从这里以下复制—- VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 4860 ClientLeft = 60 ClientTop = 450 ClientWidth = 9750 LinkTopic = "Form1" ScaleHeight = 4860 ScaleWidth = 9750 StartUpPosition = 2 '屏幕中心 Begin VB.DriveListBox Drive1 Height = 300 Left = 360 TabIndex = 4 Top = 720 Width = 5535 End Begin VB.CommandButton Command2 Caption = "退出" Height = 495 Left = 6480 TabIndex = 2 Top = 3360 Width = 1935 End Begin VB.CommandButton Command1 Caption = "删除" Height = 495 Left = 6480 TabIndex = 1 Top = 2160 Width = 1935 End Begin VB.DirListBox Dir1 Height = 3450 Left = 360 TabIndex = 0 Top = 960 Width = 5535 End Begin VB.Label Label1 Caption = "Label1" Height = 255 Left = 240 TabIndex = 3 Top = 240 Width = 9135 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click()Dim fs, mSet fs = CreateObject("Scripting.FileSystemObject")m = MsgBox("确实要删除这个文件夹吗? 注:文件夹下的所有文件将被删除！！" & vbCrLf & Dir1.Path, vbInformation + vbYesNo, "警告")If m = vbYes Then fs.deletefolder Dir1.Path MsgBox Dir1.Path & vbCrLf & "文件夹及文件夹下的所有文件已经删除!", vbInformation, "提示"End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Dir1_Change()Label1.Caption = Dir1.PathEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub Form_Load()Me.Caption = "当前程序目录是:" & App.PathDir1.Path = App.PathEnd Sub'—-复制到以上的内容—-
『肆』 用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语句：重新命名一个文件、目录、或文件夹。NameoldpathnameAsnewpathnameoldpathname必要参数。字符串表达式，指定已存在的文件名和位置，可以包含目录或文件夹、以及驱动器。newpathname必要参数。字符串表达式，指定新的文件名和位置，可以包含目录或文件夹、以及驱动器。而由newpathname所指定的文件名不能存在。说明:Name语句重新命名文件并将其移动到一个不同的目录或文件夹中。如有必要，Name可跨驱动器移动文件。但当newpathname和oldpathname都在相同的驱动器中时，只能重新命名已经存在的目录或文件夹。Name不能创建新文件、目录或文件夹。在一个已打开的文件上使用Name，将会产生错误。必须在改变名称之前，先关闭打开的文件。Name参数不能包括多字符(*)和单字符(?)的统配符。
『陆』 VB如何实现在当前文件夹中自动找到文件并进行重命名
把D:\test\目录下的所有jpg文件重命名为pic###.jpg的代码：Dim i As Integeri = 1Set 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 IfNext如果文件名已确定，可以用Set f=fs.GetFile("[完整路径和文件名]")，然后用f.Name="[新文件名]"另外提问的时候要注意把已知的条件和要达到的效果说清楚，“已知文件名的若干文件”到底是什么样的文件名，有没有什么规律？是否在同一文件夹下？或者是否已将文件名存放在一个字符串数组中？不说清楚别人怎么能帮你，只能给你一个实现的思路了
『柒』 请问用 vb 怎样重命名啊
Name 语句重新命名一个文件、目录、或文件夹。语法Name oldpathname As newpathnameName 语句的语法具有以下几个部分：部分 描述 oldpathname 必要参数。字符串表达式，指定已存在的文件名和位置，可以包含目录或文件夹、以及驱动器。 newpathname 必要参数。字符串表达式，指定新的文件名和位置，可以包含目录或文件夹、以及驱动器。而由 newpathname 所指定的文件名不能存在。 说明 Name 语句重新命名文件并将其移动到一个不同的目录或文件夹中。如有必要，Name 可跨驱动器移动文件。 但当 newpathname 和 oldpathname 都在相同的驱动器中时，只能重新命名已经存在的目录或文件夹。 Name 不能创建新文件、目录或文件夹。在一个已打开的文件上使用 Name，将会产生错误。必须在改变名称之前，先关闭打开的文件。Name 参数不能包括多字符 (*) 和单字符 (?) 的统配符。Name 语句示例本示例使用 Name 语句来更改文件的名称。示例中假设所有使用到的目录或文件夹都已存在。 Dim OldName, NewNameOldName = "OLDFILE": NewName = "NEWFILE" ' 定义文件名。Name OldName As NewName ' 更改文件名。 OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"Name OldName As NewName ' 更改文件名，并移动文件。
『捌』 VB如何重命名指定文件夹内的一个任意类型文件为特定的文件名
使用Name命令 Name 文件路径一 As 文件路径2例如：Name "C:\1.txt" As "C:\1.rar"
『玖』 VB给文件重命名
使用 Name 语句来更改文件的名称。示例中假设所有使用到的目录或文件夹都已存在。 Dim OldName, NewNameOldName = "OLDFILE": NewName = "NEWFILE" ' 定义文件名。Name OldName As NewName ' 更改文件名。 OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"Name OldName As NewName ' 更改文件名，并移动文件。其它：使用shell语句来调用dos命令rename。
『拾』 VB中如何重命名文件夹
可以创建这个文件夹。 int i; private void button1_Click(object sender, EventArgs e) { i++; System.IO.DirectoryInfo FilePictures = new System.IO.DirectoryInfo(@"..\..\picture" + i); if (!FilePictures.Exists) { FilePictures.Create(); } }
