Check Directory if FIle exist

[vbMarkO]

TO Check if file exist in a Folder

If Converted.txt Exist in Dir Then
 
 Open App.Path & "\210\February\Converted.txt" For Input As #1
             Do Until EOF(1)
                 Input #1, a, b, C, D
                 Set itm = lv(intInd).ListItems.Add(, , a)
                     itm.SubItems(1) = b
                     itm.SubItems(2) = C
                     itm.SubItems(3) = D
                Loop
Else
 
cmdLoad.Enabled = False
chkLoad.Enabled = False
Exit Sub
End If

vbMarkO

[MartinLiss]

And your question is...?

[Bruce Fox]

Like:

If Len(Dir$(App.Path & "\210\February\Converted.txt")) <> 0 Then

Edit: Or use:

If Dir$(App.Path & "\210\February\Converted.txt") <> "" Then

Bruce.

[BuggyProgrammer]

So I guess for next time, actually ask a question instead of making a phrase then hide something in your code.

[vbMarkO]

Originally posted by Bruce Fox
Like:

If Len(Dir$(App.Path & "\210\February\Converted.txt")) <> 0 Then

Edit: Or use:

If Dir$(App.Path & "\210\February\Converted.txt") <> "" Then

Bruce.

That worked great thank you...

As for the guys Oooops my Bad forgot to put a ?

Glad he caught it though

Ill try harder next time!!!

vbMarkO