Hello i have a upload script which uploads a text file into my listview3 The problem im having it if i do 1 2 3 in a not pad it will not work if i do 1 - 2 it will upload 1 but not 2 into listview3 I think its because im using a account uploaded Here is the code
Private Sub Command3_Click()Dim frmNum As Integer On Error GoTo cdError Dim fNum%, tmpStr$ fNum = FreeFile() With Form1.ComD .Filter = "Text Files (*.txt)|*.txt" .CancelError = True .DialogTitle = "Load a list..." .ShowOpen Open .FileName For Input As #fNum MyList = .FileName MsgBox "Please wait while the accounts are loaded..", vbInformation, "Please wait.." Do While Not EOF(fNum) Line Input #fNum, tmpStr Line Input #fNum, tmpStr Dim tmpStr1() As String tmpStr1 = Split(tmpStr, " - ") Form1.ListView3.ListItems.Add , , tmpStr1(1) Command4.Caption = "Accounts: " & Form1.ListView3.ListItems.Count If Slow Then DoEvents Loop Close #fNum End WithcdError:End Sub
