请问vb6.0中如何判断一个文件是否为只读

[yandb]

就是在调用ansys计算时，想通过判断生成的file.err是否只读，来判断ansys是否执行完毕

[东方之珠]

用下列API函数来判断:
Private Declare Function GetFileAttributes Lib "kernel32.dll" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long

[yandb]

你好，我对这些不太清楚，能否稍微说得详细点？
这个函数具体该如何操作判断呢？(假设要判断的文件是c:/file.err)
谢谢了

[东方之珠]

或者用VB提供的GetAttr也可以:

Dim a As String
a=GetAttr("C:\TxtFile.txt")   
If InStr(a,"ReadOnly")>0 Then'只读   
If InStr(a,"Hidden")>0 Then'隐藏   
If InStr(a,"Archive")>0 Then'存档

[yandb]

非常感谢