berikut code nya
Dim fileNum
fileNum = FreeFile
Open "F:\yourfolder\yourfile.txt" For Input As #fileNum
Do Until EOF(fileNum)
Line Input #fileNum, temp
Msgbox temp
'temp adalah hasil bacaan dari line
Loop
Close #fileNum
Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa
No comments:
Post a comment