Is there a way to check if file is available for editing ?
--
Thanks & Best Regards

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" wrote:

Is there a way to check if file is available for editing ?
--
Thanks & Best Regards

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


"dmoney" wrote:

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" wrote:

Is there a way to check if file is available for editing ?
--
Thanks & Best Regards

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

"LeeL" wrote:

Is there a way to check if file is available for editing ?
--
Thanks & Best Regards

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


"LeeL" wrote:

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


"dmoney" wrote:

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" wrote:

Is there a way to check if file is available for editing ?
--
Thanks & Best Regards