Jump to content
xisto Community
Sign in to follow this  
nick1200

Can I Do This In Vb6 ?

Recommended Posts

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

Edited by nick1200 (see edit history)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

Terms of Use | Privacy Policy | Guidelines | We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.