'写文件
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容
strFileName = "f:\20120801\ConfigFile.txt"
lngHandle = FreeFile() '取得句柄
'准备要写入的内容
strWrite = Tag '"文字将被写入文件。"
'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
执行到Open strFileName For Output As lngHandle '打开文件 时 报错提示 文件已打开
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容
strFileName = "f:\20120801\ConfigFile.txt"
lngHandle = FreeFile() '取得句柄
'准备要写入的内容
strWrite = Tag '"文字将被写入文件。"
'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
执行到Open strFileName For Output As lngHandle '打开文件 时 报错提示 文件已打开
刚接触 不太懂