pos mporo na tsekaro an ena arxio exi aniksi se vb?

[Xagiate]

Open filename for binary as #1

 

pos mporo na kano check an to #1 anikse kai meta na sinexiso parakato?

 

Do

doevents

loop until file_is_open

[bandito]

To μόνο που θα κατάφερνες με αυτό που γράφεις είναι να κολλήσεις όλο το συμπαν. Αν το αρχείο δεν καταφέρει να ανοίξει για κάποιο λόγο (π.χ το χρησιμοποιεί κάποιο άλλο πρόγραμμα) τότε θα σου πετάξει exception (error). Με ένα Error Handler, θα μπορείς να διαβάζεις το exception, και ανάλογα να αποφασίζεις.

[apoc]

</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">Private Sub_DoSomethoing()

Dim iFileHandle as Integer

iFileHandle = Freefile

On Error Goto ErrorHandler 'enabel errorhandle

Open "c:\test.txt" for Input , As #iFileHandle

'do stuff

Close #iFileHandle

Exit Sub

ErrorHandler :

Response= MsgBox("An error occured",vbCritical,"Error!")

'do other stuf

End Sub [/code]</blockquote><font size="2" face="Verdana, Helvetica, sans-serif">ενα απλοικο παραδειγμα , μπορεις αμεσως με τα το statement οπου ανοιγει το αρχειο , (αν ειναι αυτο μονο που σε ενδιαφερει) ,να απενεργοποιησεις τον error handler ,με ενα On error goto 0 .H οπως αναφερθηκε παραπανω στον εrror handler Μπορεις να check-αρεις το Err.Number αν ειναι καποιο συγκεκριμενο και να πρατεις αναλογα.

</font><blockquote><font size="1" face="Verdana, Helvetica, sans-serif">code:</font><hr /><pre style="font-size:x-small; font-family: monospace;">px

if(Err.Number =68) Then

'do stuff

End If[/code]</blockquote><font size="2" face="Verdana, Helvetica, sans-serif">ελπιζω να βοιηθησα!

 

<small>[ 04-08-2002, 18:30: Το μήνυμα επεξεργάστηκε από: apoc ]</small>