is file available for editing ?

[LeeL]

Is there a way to check if file is available for editing ?

 

[dmoney]

here is one way

Dim x As String
x = Excel.Workbooks("book1").ReadOnly = True
If x = "True" Then
MsgBox "File is Read Only"
Else
MsgBox "File is available for editing"
End If

 

[LeeL]

Thanks, just one quick question, how to form the x stament for a text file ?
For example "H:\log.txt"

 

[dmoney]

The code assumes that the text file was opened through excel.

 

[dmoney]

this may better suit your needs - adjust the path and filename either
manually of with a variable and the code will tell u if the file is avialable
for editing and the file type does not matter


Sub tst()
Dim myfilename As String
myfilename = "C:\Documents and Settings\1006646\Desktop\26022h.txt"

x = GetAttr(myfilename) And vbReadOnly
If x = 1 Then
MsgBox "file is read only'"
Else: MsgBox "file is avialable for edit"
End If

End Sub