‘—קריאה מקובץ אל ליסט בוקס בשם ליסט 1
כדי לראות את הקוד טוב צריך להעתיק ולהדביק בוורד
בפסקה משמאל לימיןPrivate Sub prs_FillListBox()
Dim sFileName As String, sMyLine As String
Dim intFileNum As Integer
Me.List1.Clear
IntFileNum=FreeFile
Open sFileName For Input As # IntFileNum
Do Until EOF(IntFileNum)
Line Input # IntFileNum, sMyLine
Me.List1.AddItem sMyLine
Loop
Close # IntFileNum
End Sub
‘--- גם לכתוב לקובץ אפשר
‘— כאן כותבים לקובץ בשם errLog.TXT
Private Sub prs_InsertData2File()
Dim sFileName As String, sMyLine as String
Dim intFileNum As Integer, I as integer
IntFileNum=FreeFile
Open App.Path & "\errLog.TXT" For Append Shared As # intFileNum
For i = 1 To 100
Print # intFileNum, "Line Number: " & i
Next i
Close # intFileNum
End Sub
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
