vb替换隐藏TXT文件问题

Private Sub Form_Load()
a = """""::LLIFADSFASFSDf"
Open "c:\123.txt" For Output As #1 '创建一个文件
Close
Open "c:\123.txt" For Append As #1
Print #1, Tab(0); Spc(5); a
Close #1

SetAttr "C:\123.txt", vbHidden ' + vbSystem '设置文件属性system为系统文件

End Sub
如果文件隐藏了则没办法再替换了，再运行程序就出错，怎么解决？？？

a = """""::LLIFADSFASFSDf"

If Dir("c:\123.txt", vbNormal Or vbHidden Or vbSystem) = "" Then
Open "c:\123.txt" For Output As #1 '创建一个文件
Close
End If
Open "c:\123.txt" For Append As #1
Print #1, Tab(0); Spc(5); a
Close #1
或者直接这样：
a = """""::LLIFADSFASFSDf"
Open "c:\123.txt" For Append As #1 '文件不存在的话，本语句就创建了
Print #1, Tab(0); Spc(5); a
Close #1
SetAttr "C:\123.txt", vbHidden ' + vbSystem '设置文件属性system为系统文件

现在隐藏还有意义么?谁不知道啊

加一句 if len(dir$( "C:\123.txt", vbHidden ' + vbSystem)) then SetAttr "C:\123.txt", 0

Private Sub Form_Load() a = """""::LLIFADSFASFSDf" On Error Resume Next Open "c:\123.txt" For Output As #1 '创建一个文件 If Err.Number = 75 Then Kill "c:\123.txt" Close Open "c:\123.txt" For Append As #1 Print #1, Tab(0); Spc(5); a Close #1 SetAttr "C:\123.txt", vbHidden ' + vbSystem '设置文件属性system为系统文件 End Sub

方法1 使用windows函数 kill "c:\abc.txt" '删除文件 filecopy "e:\asd.txt","c:\abc.txt" '文件控制 方法2 程序控制 dim sline as string dim stext as string open "e:\asd.txt" for input as #1 while not eof(1) line input #1,sline stext=stext & vbcrlf & sline wend close #1 open "c:\abc.txt" for output as #1 print #1,stext close #1

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息