Error problem

[Walter100]

I have created a file association for my program. So if the user goes to the name of the file they saved using my program and open up the file from the run browse etc. my program will open and show the saved information. Now some times I receive this message when I open a file and sometimes I dont it will just open my program and show the saved work. This problem does not happen when I open my program directly using the exe, only when I open a file that is associated with my app. This is the error that I receive sometimes.

Run-time error '53':
File not found

Now if I try to open the file again it opens with no problem.

This is the code I am using in the form load declaration so that a user can open the saved information by opening a file that they saved with my program

If Len(Command$) > 0 Then
  lblfilename.Caption = Command$
  sfilename = Command$
  cdbexpenditures.FileName = Command$
 
 
  Open sfilename For Input As #1
  Do While Not EOF(1)
    Line Input #1, sfilename
    strlistdata = Split(sfilename, "::")
    list1.AddItem strlistdata(0)
    List2.AddItem strlistdata(1)
    List3.AddItem strlistdata(2)
  Loop
  Close #1

Can someone help me tell me how to stop this error message if anyone needs to see the app I can provide the exe and tell them what to do so they can see what the problem is

[moinkhan]

To ignore the error you can use.. on error resume next or on error Goto statement...

On Error Goto Hell
If Len(Command$) > 0 Then
  lblfilename.Caption = Command$
  sfilename = Command$
  cdbexpenditures.FileName = Command$
 
 
  Open sfilename For Input As #1
  Do While Not EOF(1)
    Line Input #1, sfilename
    strlistdata = Split(sfilename, "::")
    list1.AddItem strlistdata(0)
    List2.AddItem strlistdata(1)
    List3.AddItem strlistdata(2)
  Loop
  Close #1
Hell:
 Exit Sub

[Microbasic]

Or try:

If Len(Command$) > 0 Then
  lblfilename.Caption = Command$
  sfilename = Command$
  If Left$(sfilename, 1) = " " Then sfilename = Right$(sfilename, Len(sfilename) - 1)
  If Left$(sfilename, 1) = """" Then sfilename = Mid$(sfilename, 2, Len(sfilename) - 2)
  cdbexpenditures.FileName = Command$
' Where is your END IF?
 
  Open sfilename For Input As #1
  Do While Not EOF(1)
    Line Input #1, sfilename
    strlistdata = Split(sfilename, "::")
    list1.AddItem strlistdata(0)
    List2.AddItem strlistdata(1)
    List3.AddItem strlistdata(2)
  Loop
  Close #1

[Walter100]

Thanks guys I will try them both now

[Walter100]

The exit sub only quits the program and the other code still presents the same problem. How would I use the error resume next statement?

[Microbasic]

On Error Resume Next
If Len(Command$) > 0 Then
  lblfilename.Caption = Command$
  sfilename = Command$
  cdbexpenditures.FileName = Command$
 
 
  Open sfilename For Input As #1
  Do While Not EOF(1)
    Line Input #1, sfilename
    strlistdata = Split(sfilename, "::")
    list1.AddItem strlistdata(0)
    List2.AddItem strlistdata(1)
    List3.AddItem strlistdata(2)
  Loop
  Close #1
On Error Goto 0
' Plus you're missing an END IF.

[Walter100]

Microbasic I tried the code when the error occurs the program just stops is there a way. I can just stop the error all together. Maybe I need to reconstruct the code any ideas?

[Microbasic]

On Error Resume Next
If Len(Command$) > 0 Then
  lblfilename.Caption = Command$
  sfilename = Command$
  cdbexpenditures.FileName = Command$
 
 
  Open sfilename For Input As #1
  If Err = 0 Then
    Do While Not EOF(1)
      Line Input #1, sfilename
      strlistdata = Split(sfilename, "::")
      list1.AddItem strlistdata(0)
      List2.AddItem strlistdata(1)
      List3.AddItem strlistdata(2)
    Loop
  End If
  Close #1
On Error Goto 0
' Plus you're missing an END IF.

[Walter100]

Okay thanks microbasics I will try this one. I have the end if in the project I didnt place on there because it does something else but here is the entire form load declaration this is what I have right now before Iam about to try the new code you submitted

Private Sub Form_Load()
 
On Error Resume Next
lbltitlebar.Width = Me.Width
Shape1.Width = Me.Width
 
 
 
 
If Len(Command$) > 0 Then
  lblfilename.Caption = Command$
  sfilename = Command$
  cdbexpenditures.FileName = Command$
 
 
  Open sfilename For Input As #1
  Do While Not EOF(1)
    Line Input #1, sfilename
    strlistdata = Split(sfilename, "::")
    list1.AddItem strlistdata(0)
    List2.AddItem strlistdata(1)
    List3.AddItem strlistdata(2)
  Loop
  Close #1
 
 
  IntMax = list1.ListCount
 
For IntNext = 0 To IntMax - 1
 
Me.listone.AddItem Me.list1.List(IntNext)
 
Next
End If
 
 
 
 
intIndex1 = 0
 
 
On Error GoTo 0
 
 
 
 
 
End Sub

[Walter100]

Iam still receiving the same error message at times. I dont know maybe its the code that Iam using. Is there any other code that if the user goes to the name of the file they saved using my program and open up the file from the run browse etc. my program will open and show the saved information. well i have the code that will open the information I just need for the check or something. Here is the opening code again. Please help been stuck on this problem for a week now.

lblfilename.Caption =cdbexpenditures.filetitle
  sfilename = cdbexpenditures.filename  
Open sfilename For Input As #1
  Do While Not EOF(1)
    Line Input #1, sfilename
    strlistdata = Split(sfilename, "::")
    list1.AddItem strlistdata(0)
    List2.AddItem strlistdata(1)
    List3.AddItem strlistdata(2)
  Loop
  Close #1

[Walter100]

So can someone help me

[BuggyProgrammer]

well... are you sure that Command$ has the correct path?

have you debbuged to see if sfilename is the correct path?

lblfilename.Caption =cdbexpenditures.filetitle
  sfilename = cdbexpenditures.filename  
 
msgbox dir(sfilename) 'if this is "" then the file doesn't exist.
Open sfilename For Input As #1
  Do While Not EOF(1)
    Line Input #1, sfilename
    strlistdata = Split(sfilename, "::")
    list1.AddItem strlistdata(0)
    List2.AddItem strlistdata(1)
    List3.AddItem strlistdata(2)
  Loop
  Close #1

[Walter100]

The problem is still continuing can someone please help. Maybe theres some other method of completeing this task I just cant figure it out.

[Walter100]

Can anyone help?

[Walter100]

So can anyone help? Maybe if I attach the exe everyone can see what Iam talking about? Anyone can help?

[Walter100]

Can someone help please. This is the only problem stopping me from finishing this program