VBA open file

[help_for_excel]

Hi....I have the below code to check whether particular file is open or not. It works fine with excel file or powerpoint file checking but when I used with text file like the line which i have commented it doesn't wrk properly...can any one please tell me how to modify this code so I can use with txt files also




Option Explicit

Sub TestVBA()
Const strFileToOpen As String = "C:\Desktop\file1.pptx"
'Const strFileToOpen As String = "C:\Desktop\country.txt"
If IsFileOpen(strFileToOpen) Then
MsgBox strFileToOpen & " is already Open", vbInformation
Else
MsgBox strFileToOpen & " is not open", vbInformation
End If
End Sub

Function IsFileOpen(strFullPathFileName As String) As Boolean
Dim hdlFile As Long

On Error GoTo FileIsOpen:
hdlFile = FreeFile
Open strFullPathFileName For Random Access Read Write Lock Read Write As hdlFile
IsFileOpen = False
Close hdlFile
Exit Function
FileIsOpen:
IsFileOpen = True
Close hdlFile
End Function

 

[tlowry]

I think this may be related to how the other applicaiton opens the file. I tried your code and found that using the same txt file that:

Excel 2000<TABLE style="BORDER-BOTTOM: #a6aab6 1px solid; BORDER-LEFT: #a6aab6 1px solid; BACKGROUND-COLOR: #ffffff; BORDER-COLLAPSE: collapse; BORDER-TOP: #a6aab6 1px solid; BORDER-RIGHT: #a6aab6 1px solid" rules=all cellPadding=2><COLGROUP><COL style="BACKGROUND-COLOR: #e0e0f0" width=25><COL><COL></COLGROUP><THEAD><TR style="TEXT-ALIGN: center; BACKGROUND-COLOR: #e0e0f0; COLOR: #161120"><TH></TH><TH>A</TH><TH>B</TH></TR></THEAD><TBODY><TR><TD style="TEXT-ALIGN: center; COLOR: #161120">5</TD><TD>Notepad</TD><TD>Never gives a file is open</TD></TR><TR><TD style="TEXT-ALIGN: center; COLOR: #161120">6</TD><TD>Word</TD><TD>Works correctly</TD></TR></TBODY></TABLE>

Sheet1​

Note: Notepad gave an error on save, when the file was also opened in Word.

 

[help_for_excel]

i think its related to file locked....word excel can be locked. txt file cannot be locked.