给VB高手找麻烦

来源:百度知道 编辑:UC知道 时间:2024/05/24 01:31:24
原因:
C:\123.txt的第一行字符是“D:\1.eer”
因为D:\1.eer这个文件名是实时变动的,可能10秒后它就不叫1.eer了
所以我只能从c:\123.txt的第一行进行读取它的地址
目的:
我的目的是,通过读取c:\123.txt的第一行字符所对就在的地址,把所
对应地址的文件进行copy一份到e:\111.txt (copy 前的文件类型为.eer 转换后的类型为.txt )

Private Sub Command1_Click()
Open "c:\123.txt" For Input As #1
Line Input #1, b
b = Replace(Replace(b, Chr(13), ""), Chr(10), "")
If Dir(b, 31) <> "" = True Then
FileCopy b, "e:\111.txt"
End If
Close #1
End Sub

打开文件有没有其他的方式?