vb6怎样读写隐藏的文件

[yinzs]

文件一开始是不存在的。创建之后，写入内容，然后设置为隐藏。但是下次再读取的时候就会提示路径不对。如果在读取之前添加一句SetAttr SetFile, vbNormal的话，文件存在且是隐藏的就没有问题，但是文件要是不存在又会出错。

Private Sub Form_Load()''窗体加载时读取

  Dim i%
  Dim FilePath As String        

  FilePath = Dir(SetFile)
  
  If FilePath = "" Then
    txt_Data.Text = ""
  Else
    Open SetFile For Input As #1
    Input #1, tempData
    Close 1
  End If

End Sub

Private Sub Cmd_Ok_Click()''写入
        Open SetFile For Output As #1
        Write #1, tempData
        Close #1
        SetAttr SetFile, vbHidden
End Sub

[wlording2]

加个on error处理一下，

[舉杯邀明月]

Open 语句是否成功执行跟文件属性无关！

我刚才试了一下：一个文件，具有只读、系统、隐藏属性。
在文件夹选项中设置“显示所有文件和文件夹”和取消钩选“隐藏受保护的操作系统文件”时；
在文件夹选项中设置“不显示隐藏的文件和文件夹”和钩选“隐藏受保护的操作系统文件”时；
这两种情况下都可以正常读取文件内容。

楼主需要确认的是：在打开文件时，你的变量 SetFile 中的值是不是正确的！

[zhuhuofong]

if Dir(SetFile)<>"" then
读取文件语句
end if

[zhuhuofong]

Private Sub Form_Load()''窗体加载时读取

  Dim i%
  Dim FilePath As String        

  FilePath = Dir(SetFile)
  
  If FilePath = "" Then
    txt_Data.Text = ""
  Else
    if Dir(SetFile) <>"" then 

       Open SetFile For Input As #1
       Input #1, tempData
       Close 1
    end if
  End If

End Sub

Private Sub Cmd_Ok_Click()''写入
        Open SetFile For Output As #1
        Write #1, tempData
        Close #1
        SetAttr SetFile, vbHidden
End Sub

[爱我的人请呼吸]

用Dir(FileName)先判断一下文件是否存在