文本重命名。

来源：百度知道 编辑：UC知道 时间：2024/05/23 18:55:35
有一批文本，需要按他们各自文本的第一行进行重命名。
要求：省略“/”和“\”！

VB

原程序如下：

Private Sub Command_Click
Dim Temp As String
Open Text1.Text For Input As #1'//Text1里输入文本的绝对路径
Line Input #1,Temp
Close #1
Name Text1.Text As Temp
End Sub