List Box en For
Publicado por dipat (7 intervenciones) el 01/08/2007 20:15:16
Les explico, tengo esta funcion:
Public Function procesar()
For i = 0 To VigilanteVE.List1.ListCount - 1
arch = VigilanteVE.List1.List(i)
d = Split(arch, "\")
dire = d(UBound(d))
SQL = "SELECT nombre2, ARCHIVOSAP, TRANSFERENCIA, procesando From vigilanteven WHERE (ARCHIVOSAP = '" & dire & "')"
rs.Open SQL, cnCentral, adOpenDynamic, adLockBatchOptimistic
If Not rs.EOF Then
variable1 = List1.List(i)
If rs.Fields(3) = 0 And Dir(variable1, vbArchive) <> "" Then '''' esto es para validar que el mapeo de sap este!!
SQL = "update vigilanteven set procesando=1 WHERE (ARCHIVOSAP = '" & dire & "')"
rsupdate.Open SQL, cnCentral, adOpenDynamic, adLockBatchOptimistic
If extensiones = ".txt" Or extensiones = ".csv" Then
variable2 = EntSAP & "\" & rs.Fields(2)
ElseIf extensiones = ".zip" Then
variable2 = Entsapzip & "\" & rs.Fields(2)
End If
If extensiones = ".txt" Or extensiones = ".csv" Then
variable3 = ModImport + "\" + rs.Fields(0) + ".exe"
ElseIf extensiones = ".zip" Then
variable3 = ModDescon + "\" + rs.Fields(0) + ".exe"
End If
ExecCmdNoFocus (ModMove & "\" & rs.Fields(0) & ".bat " & variable1 & " " & variable2 & " " & variable3)
End If
End If
rs.Close
Next i
Que quiero hacer:
En esa función que hago, tengo un list box que posee el nombre de varios archivos (que van a ser procesados por mi sistema), pero yo quiero que amedida que mi sistema procese cada archivo lo elimine de esa lista y por lo tanto la actualice.
Que está pasando:
Que una vez que llama el bat que procesa ese archivo, se queda allí pegado porque porque el bat tiene que esperar un tiempo determinado. Yo ya coloque remove item, refresh... pero no actualiza el list y por lo tanto mi FOR queda siempre igual.
No sé si me explico...y captan que quiero hacer, es decir yo quiero que una vez que llamó ese bat de archivo... elimine el nombre de ese archivo dentro del list, y me actualice el list y pase a procesar el siguiente archivo... ejemplo:
Archivo1
Archivo2
Archivo3
Llamo el Bat de archivo: ExecCmdNoFocus.....
Mi list quedaría:
Archivo2
Archivo3
y así sucesivamente
Public Function procesar()
For i = 0 To VigilanteVE.List1.ListCount - 1
arch = VigilanteVE.List1.List(i)
d = Split(arch, "\")
dire = d(UBound(d))
SQL = "SELECT nombre2, ARCHIVOSAP, TRANSFERENCIA, procesando From vigilanteven WHERE (ARCHIVOSAP = '" & dire & "')"
rs.Open SQL, cnCentral, adOpenDynamic, adLockBatchOptimistic
If Not rs.EOF Then
variable1 = List1.List(i)
If rs.Fields(3) = 0 And Dir(variable1, vbArchive) <> "" Then '''' esto es para validar que el mapeo de sap este!!
SQL = "update vigilanteven set procesando=1 WHERE (ARCHIVOSAP = '" & dire & "')"
rsupdate.Open SQL, cnCentral, adOpenDynamic, adLockBatchOptimistic
If extensiones = ".txt" Or extensiones = ".csv" Then
variable2 = EntSAP & "\" & rs.Fields(2)
ElseIf extensiones = ".zip" Then
variable2 = Entsapzip & "\" & rs.Fields(2)
End If
If extensiones = ".txt" Or extensiones = ".csv" Then
variable3 = ModImport + "\" + rs.Fields(0) + ".exe"
ElseIf extensiones = ".zip" Then
variable3 = ModDescon + "\" + rs.Fields(0) + ".exe"
End If
ExecCmdNoFocus (ModMove & "\" & rs.Fields(0) & ".bat " & variable1 & " " & variable2 & " " & variable3)
End If
End If
rs.Close
Next i
Que quiero hacer:
En esa función que hago, tengo un list box que posee el nombre de varios archivos (que van a ser procesados por mi sistema), pero yo quiero que amedida que mi sistema procese cada archivo lo elimine de esa lista y por lo tanto la actualice.
Que está pasando:
Que una vez que llama el bat que procesa ese archivo, se queda allí pegado porque porque el bat tiene que esperar un tiempo determinado. Yo ya coloque remove item, refresh... pero no actualiza el list y por lo tanto mi FOR queda siempre igual.
No sé si me explico...y captan que quiero hacer, es decir yo quiero que una vez que llamó ese bat de archivo... elimine el nombre de ese archivo dentro del list, y me actualice el list y pase a procesar el siguiente archivo... ejemplo:
Archivo1
Archivo2
Archivo3
Llamo el Bat de archivo: ExecCmdNoFocus.....
Mi list quedaría:
Archivo2
Archivo3
y así sucesivamente
Valora esta pregunta
0