Necesito que me ayuden con esta parte de mi código en VB , en el ListBox me tiene que aparecer una dirección IP para verificar ciertos datos que tengo que mostrar en pantalla al momento de que corro el programa siempre me sale una Advertencia de
ArgumentException occured Empty path name is not legal
Llevo días buscando ese error ya debegue y cuando inspecciona la información me aparece una leyenda que dice:
Argument not specific for parameter 'sender' of 'Privite Sub Listbox1_Click(sender As Object, e As EventArgs)Handles ListBox1_Click
Anexo parte de mi código para que puedan verificar en que parte del código estoy mal.
Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click
validar()
End Sub
Public Sub validar()
logfile = ListBox1.Text
Dim file As New System.IO.StreamReader(logfile)
Dim oneLine As String
oneLine = file.ReadLine()
RichTextBox2.Enabled = False
While (oneLine <> "************ Report ***********")
oneLine = file.ReadLine()
If oneLine = "Final Status: Passed" Then
txtModelo.Clear()
txtPO.Clear()
txtDelivery.Clear()
RichTextBox1.Clear()
RichTextBox2.Clear()
txtConsola.Clear()
MessageBox.Show("El archivo seleccionado no contiene falla", "Part Replacement")
Exit While
ElseIf oneLine = "Final Status: Aborted" Then
RichTextBox2.Enabled = True
MessageBox.Show("Este archivo contiene un abort, ingresa los comentarios de la falla", "Part Replacement")
ElseIf oneLine = "************ Report ***********" Then
logfile = ListBox1.Text
leerdir()
leerdel()
leerfalla()
leerpo()
leermod()
leerconsol()
'materialType()
SerealizadoFile()
ImportarArchivo()
MarketingPN()
End If
End While
End Sub
Código del evento Form1_Load
:
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim thisDate As Date
thisDate = Today
txtFecha.Text = thisDate
txtFechaCorta.Text = Format(thisDate, "yyyyMMdd")
ListBox1.Items.Add(File)
Dim currentTime As Date
currentTime = TimeOfDay
txtHora.Text = currentTime
txtHoraDecimal.Text = Format(TimeOfDay, "hhmmss")
If txtHoraDecimal.Text < 20000 Then
txtTurno.Text = "1er"
Else
txtTurno.Text = "2do"
End If
End Sub
Me dejaron un comentario que fue borrado:
Jose Pilay: ¿De dónde traes el
File
en esta líneaListBox1.Items.Add(File)
?