רוטר - שאלה דחופה בקריאה מקובץ טקסט(VB)

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"שאלה דחופה בקריאה מקובץ טקסט(VB)"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #6542	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 6542

afried

20:23 13.07.03

שאלה דחופה בקריאה מקובץ טקסט(VB)

שלום שאני רוצה לקרוא קובץ טקסט ע"י השורות הבאות:
Dim fso As New FileSystemObject
Dim fsoTextStream As TextStream
Set fsoTextStream = fso.OpenTextFile("c:\file.txt", ForReading, True)
Text1.Text = fsoTextStream.ReadAll
fsoTextStream.Close
Set fso = Nothing
Set fsoTextStream = Nothing
אזי המחשב נותן לי הודעת שגיאה כזאת:
RUN TIME ERROR 62
INPUT PAST END OF FILE
יש לציין שעשיתי READALL כלומר לקרוא את כל הקובץ

אפשר בבקשה עצות ופתרונות?

שתף

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

האשכול	מחבר	תאריך כתיבה	מספר
קרוב לודאי שהקובץ שלך ריק	codmaster	13.07.03 22:17	1

codmaster

22:17 13.07.03

1. קרוב לודאי שהקובץ שלך ריק
בתגובה להודעה מספר 0

ולכן אתה מקבל את השגיאה הנ"ל ...
נסה את התנאי שהוספתי לך :

Set fsoTextStream = fso.OpenTextFile("c:\file.txt", ForReading, True)
If fsoTextStream.AtEndOfStream Then
MsgBox "File is empty"
Else
Text1.Text = fsoTextStream.ReadAll
End If
fsoTextStream.Close
Set fso = Nothing
Set fsoTextStream = Nothing

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד