高分请教一个小问题，答者有分 在线等

Question

如何修改一个文件的名字 文件为 MMYYDDTT01.TXT  其中MMYYDDTT随即且大小不变， 只有01是固定的数字，
我想把  MMYYDDTT01改称 123401.TXT  应该怎么改，在线等，希望各位都给点意见啊，不知道给点思路也行啊， 不胜感激，小弟先谢过了。

Answer 1

用filesystem取得文件名称，然后按照你自己的规则改名后保存，再删除原文件就可以

Answer 2

你可以用filelist先取得名字阿，然后rename()就可以了

Answer 3

能不能写几句代码上来阿， 其实我就是想实现，这样的情况， rename ????????01.txt 123401.txt该怎么实现阿，

Answer 4

实在不成的话可以Shell ren用shell调用外部命令。内部也有改名字的命令

Answer 5

Name 语句示例
本示例使用 Name 语句来更改文件的名称。示例中假设所有使用到的目录或文件夹都已存在。 Dim OldName, NewName
OldName = "OLDFILE": NewName = "NEWFILE"   ' 定义文件名。
Name OldName As NewName   ' 更改文件名。 
OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
Name OldName As NewName   ' 更改文件名，并移动文件。

Answer 6

name ????????01.txt as 123401.txt记得带具体路径

Answer 7

//MMYYDDTT01改称 123401.TXT  应该怎么改:Private Sub Command1_Click()
Name "d:\MMYYDDTT01" As "123401.TXT" '假如文件在d:\
End Sub

Answer 8

使用filesytemobject，得到file，然后使用file改名，将fale原来里面的名字中的 MMYYDDTT替换成你想要的文字，你试试看，不行的话我再给你写源码。

Answer 9

可以引用microsoft scripting runtime，如果不引用，就用createobject生成Fso。代码如下：
生成文件：
Private Sub Command1_Click()
Dim i As Integer
For i = 100 To 999
Open App.Path & "\ABCDEFG" & i & ".txt" For Output As #1
    Print #1, "go"
Close #1
Next
End Sub
改名：
Private Sub Command2_Click()
Dim Fso As FileSystemObject, Fl As File, Fo As Scripting.Folder
Set Fso = New FileSystemObject
Set Fo = Fso.GetFolder(App.Path)
For Each Fl In Fo.Files
    If InStr(1, Fl.Name, "ABCDEFG") <> 0 Then Fl.Name = Replace$(Fl.Name, "ABCDEFG", "GOGOGO")
Next
Set Fo = Nothing
Set Fl = Nothing
Set Fso = Nothing
End Sub
你参考使用吧 。

Answer 10

查找文件，用通配符*01.txt,然后改名。API我记不清了，反正有FIND，有FILE。呵呵

Answer 11

对了，DIR（*01.txt）试试，成功的话返回的应该就是文件名了。

Answer 12

呵呵,不好意思,楼主的意思刚才没有看明白,你把我上面的代码中的If InStr(1, Fl.Name, "ABCDEFG") <> 0 Then Fl.Name = Replace$(Fl.Name, "ABCDEFG", "GOGOGO")改一下:
if right(fl.name,6)="01.txt" then fl.name="123401.txt". 当然文件名不能相同了,你根据需要修改了.

Answer 13

DemonLoveLizzy(^_^)!!!    说得对， 就是用这么种方法， 很基础 但是很有效，谢谢
结贴了 ，谢谢大家 帮忙， 以后还请 多多指教阿