[VB] Openen Error :S

[Verwijderd]

Visual Basic:

Private Sub Command5_Click()
CommonDialog1.CancelError = True

On Error Resume Next
CommonDialog1.Filter = "Text Files (*.txt)|*.txt"
CommonDialog1.ShowOpen
CommondFilename = CommonDialog1.FileName

Open FilenameOpen For Input As #1
Do Until EOF(1)
Line Input #1, File
List2.AddItem (File)
DoEvents
Loop
Close #1
End Sub

Dat is wat ik nu heb maar als ik nu op Openen klik en hij het aan de listbox gaat toevoegen dan gaat hij helemaal flippen. Hij gaat dan de inhoud van de textfile achterelkaar in de listbox zetten en loop dan uiteindelijk "vast".

Wie kan mij helpen deze code te verbeteren ?
(Ben nog wel een beetje VB 0_o hoor )

[gorgi_19]

Gooi om te beginnen de On Error Resume Next er eens uit, anders is het volledig niet meer te debuggen.

[Verwijderd]

Ok heb ik gedaan (Thnx) En nu kreeg ik een Path/File Access Error op lijn 9 hierboven. Er moet dus iets daar aan de hand zijn maar wat precies kan ik niet vinden. En de oplossing weet ik ook niet

[ Voor 1% gewijzigd door Verwijderd op 06-05-2003 13:51 . Reden: Typo ]

[gorgi_19]

En de volledige, precieze, engelse foutmelding?

[Janoz]

kom kom.. Kijk eens naar je eigen source en leer debuggen. Begin maar eens te kijken welk bestand je opend. Is dat ComondFilename of FilenameOpen?

[Verwijderd]

Run-Time Error '75':

Path/File Access Error

Dat is em helemaal

[gorgi_19]

Verwijderd schreef op 06 mei 2003 @ 13:54:
Run-Time Error '75':

Path/File Access Error

Dat is em helemaal

quote: http://msdn.microsoft.com...e_pathfileaccesserror.asp

Path File Access Error
During a file or disk-access operation, the operating system could not make a connection between the path and the filename.

The file specification is not correctly formatted.A filename can contain a fully-qualified (absolute) or relative path. A fully-qualified path starts with the drive name (if the path is on another drive) and then lists the explicit path from the root to the file. Any path that is not fully-qualified is relative to the current drive and directory.


You attempted to save a file that would replace an existing read-only file.From Windows Explorer, right-mouse click on the file, and select Properties from the pop-up menu. From the Properties window, change the properties to enable read/write capability.

'k heb ff een mogelijk relevant stuk cursief neergezet.

[ Voor 5% gewijzigd door gorgi_19 op 06-05-2003 13:56 ]

[Verwijderd]

Hiervoor had ik dit script:

Visual Basic:

Private Sub Command11_Click()
CommonDialog1.CancelError = True

On Error Resume Next
CommonDialog1.Filter = "Text Files (*.txt)|*.txt"
CommonDialog1.ShowOpen
CommondFilename = CommonDialog1.FileName

Open CommondFilename For Binary As #1
FilenameOpen = Input(LOF(1), #1)
Text3.Text = FilenameOpen
Close #1
End Sub

Die werkt gewoon goed maar nu wil ik een lijst met proxy nummers invoeren in een listbox maar als ik die Text3.Text ga veranderen dan lukt ie niet ..

[gorgi_19]

Vergelijk de regels 9 eens met elkaar?

[Verwijderd]

He thnx, daar kon ik wat mee .. Ik had een paar variablen omgedraait

Dit moet de goede zijn

Visual Basic:

Private Sub Command5_Click()
CommonDialog1.CancelError = True

CommonDialog1.Filter = "Text Files (*.txt)|*.txt"
CommonDialog1.ShowOpen
CommondFilename = CommonDialog1.FileName

Open CommondFilename For Input As #1
Do Until EOF(1)
Line Input #1, FilenameOpen
List2.AddItem (FilenameOpen)
DoEvents
Loop
Close #1
End Sub

Bedankt voor jullie hulp