VB OPEN语句的具体用法，如何覆盖已存在的系统文件呢???

既然是只读文件当然不能覆盖了，先把只读属性去掉

把文件设置为output可以自动覆盖

open

文件

for

output

for

#1

如果不要覆盖，就用append方式打开

open

文件

for

append

for

#1

Sub 选择性打开多个文件()

 Dim fn

 fn = Application.GetOpenFilename("EXCEL文件(*.xls), *.xls", , "导入文件", , True)

 '继续对字符串fn进行 *** 作。

End Sub

Private Sub Command1_Click()

Command1.Enabled = False

FileCopy App.Path &"\data1\123.txt", App.Path &"\data\123.txt"

MsgBox "复制完成"

Command1.Enabled = True

End Sub

---