Coding Load Text Flood Dari NotePad

[agori]

um ni w numpang tanya
mungkin yang namanya flood kemflood itu udah lama ada
nah w pgn text flood nya ambil dari notepad sehingga terkesan unlimited dan bebas
itu codingnya gimana um ?
kan rata" yang nge load dari notepad itu multy , sdngkan jika text flood sendiri ada perbedaankah dengan load multy kg
mohon bimbingannya y um

[police]

tanya nya di programer om.....jgn disini

[migduel]

Code:

Private Sub CmdLoad_Click()
On Error Resume Next
Dim FLNM As String
Dim Tmp As String
With CdLg
.CancelError = False
.DefaultExt = "txt"
.DialogTitle = "Open File"
.Filter = "TXT file (*.txt)|*.txt"
.ShowOpen
FLNM = .FileName
End With
        Set STRM = FSO.OpenTextFile(FLNM, ForReading)
        With STRM
        For Idx = 1 To Lvw.ListItems.Count
        Lvw.ListItems(Idx).SubItems(2) = .ReadLine ' text nya di load di sini ,
        Next Idx
        .Close
        End With
End Sub

[agori]

thanks um

[Sponsored content]