Mensajes

Vivachapas si te fijas lo mio esta simplificado y sin un FOR, no es lo mismo 


Sancho.Mazorka   

Si es lo msimo Madantrax hizo el For para que se viese un ejemplo,es decir se van añadiendo numeros para que vea que si funciona,por lo tanto es lo mismo ya que no se necesita ningun bucle para hacer eso.

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim a As String
Dim b As String

a = Asc("a")
b = Asc("z")

For i = a To b
    For r = a To b
        For w = a To b
        List1.AddItem Chr(i) & Chr(r) & Chr(w)
        Next
    Next
Next

End Sub

Esto es lo que quieres,el ejemplo es de Hendrix y aqui el post original: http://foro.elhacker.net/index.php/topic,106564.15.html
Si quieres mas letras pues le añades otro bucle y un & chr(variable) y ya esta,asi hasta las que quieras.

E0N muchas gracias,esto ayuda bastante.
A seguir asi.
Saludos.

EDIT: Arrgh!! se me adelantaron xD

Cierto  pero respondimos a su duda asique no importa.
Saludos.

Código [Seleccionar] Expandir

Appactivate "Word"
SendKeys "hola"

Saludos.

  Muchas gracias E0N!!!Me eres de gran ayuda.
Saludos.

Esta caido,dice file not found

Pues no me va bien y me añade la palabra "list" pero como en un listview es muy complicado,mejor pongo en el cliente tambien un dirlistbox filelistbox drivelistbox,a ver si consigo hacerlo.
Gracias de todas formas lo haré asi que pa mi que va a ser mas sencillo.
A ver si me sale,xD.
Saludos.
Tengo algunos problemillas a la hora de hacerlo,si alguien tiene algun code de base porque mas o menos me slae pero solo con el dir,con el file no,los 2 no puedo...

Si ahi habia llegado,lo del select case,ahora mi problema es que por ejemplo he listado los archivos,ahora me faltan los directorios y las carpetas,pero claro,al envialro se me juntan y me lo emten en la misma columna,ese es el problema que tengo,solo puedo listar o ficheros,o carpetas o directorios y necesito los 3,tambien podria meterlo en un dirlistbox,filelistbox.
Bueno voy a seguir trabajando en ello.
Gracias y saludos.

Bueno he hecho un Split pero sigue andando algo mal:
Servidor:

Código [Seleccionar] Expandir


Dim i As Long
For i = 0 To Form1.File1.ListCount - 1
Form1.ws.SendData "list" & Form1.File1.Path & "|" & File1.List(i) & "|"
Next


Cliente:

Código [Seleccionar] Expandir


On error resume next
Dim x As ListItem
Dim datos As String
Dim data() As String
Dim i As Long
ws.GetData datos
data = Split(datos, "list")
If Left(datos, 4) = "list" Then
For i = 1 To 100
Set x = ListView1.ListItems.Add(, , data(i))
Next
End If

Y el 100 del bucle me lo saco de la manga...porque no sé cuantos archivos hay pongo eso por poner un numero,el caso es que el code es muy chorra y va un poquillo mal...