用vb怎样这样修改文件名？

Private Sub command1_click()

Dim d As String

d = Dir("c:\abc\*.txt")

Do Until d = ""

Name "c:\abc\" &d As "c:\abc\" &Text1.Text &d

d = Dir

Loop

End Sub

以上代码是把"c:\abc"桐判空目录的所有txt的文件名前面插入text1的内容。如果只想给最新创建的文件添加，那么可以在循环中用FileDateTime("c:\abc\" &d)检测局瞎文件的冲旦时间，找出最新的那个即可。

name属性

在程序中是没法更改的。

在设计时，可以点击控件，然后在右下角属性窗口的最顶行能看

（名称），后面就控件的名称，直接点击就可以编辑，所有的控件都一样的。(与改名称是在同一个液知窗口，枝埋亩一开始标题与控件名称是一样的，在标题那位置caption往上几行。)

如果不猛森小心关闭了控件属性窗口，把鼠标放控件上，右键，属性窗口，就出来了。

二次补充颤芦：肯定没问题了，把其他功能都去掉了，只剩下改名和删除，如果想吧删除去掉，就去注释的那一句。

＝＝＝＝＝＝＝＝＝＝＝＝

建一个Command1，如果需要，建立Command2。敏洞薯

代码如下。

＝＝＝＝＝＝＝＝＝＝＝＝

Dim t As Integer, s As String

Private Sub Command1_Click()

Name "c:\abc\temp_" &t &".txt" As "c:\abc\temp.txt"

Kill "c:\abc\temp.txt" '不删除的话去掉这一句

t = t + 1

If t = 151 Then End '比方说你想进行到文桥者件150，就要写上151

End Sub

Private Sub Form_Load()

t = 121

End Sub

---