Recortar una letra a una frase

[Guan]

   Wolas, pues eso, el problema qe tengo es qe necesito mandar la lista de unidades de un servidor a un cliente, pero necesito qe se vean a:, c:, d:... y no a:\, c:\, d:\...   Es para un file manager el codigo qer uso para enviarlas es simple:

Código:

Dim i As Integer
For i = 0 To Drive1.ListCount - 1
ws.SendData "\list" & Drive1.List(i) 'enviamos "\list" y la ruta de todos los drive
Call Sleep(100)
Next

   Y al llegar lo meto todo directamente en un listbox.

Saludos

[ranefi]

   Wolas, pues eso, el problema qe tengo es qe necesito mandar la lista de unidades de un servidor a un cliente, pero necesito qe se vean a:, c:, d:... y no a:\, c:\, d:\...   Es para un file manager el codigo qer uso para enviarlas es simple:

Código:

Dim i As Integer
For i = 0 To Drive1.ListCount - 1
ws.SendData "\list" & Drive1.List(i) 'enviamos "\list" y la ruta de todos los drive
Call Sleep(100)
Next

   Y al llegar lo meto todo directamente en un listbox.

Saludos

Hola Guan, buen día. Supongo que lo que necesitas es lo siguiente:

Código de ejemplo

Código:

Dim i As Integer

    For i = 0 To Drive1.ListCount - 1
        ws.SendData "\list" & Left(Drive1.List(i), 2) 'enviamos "\list" y la ruta de todos los drive
        Call Sleep(100)
    Next

Eso fue lo que te entendí, espero te sirva. Nos vemos.

[Guan]

(2)

... No lo entiendo, no no es eso averlo qe pasa es qe cuando envias as particiones de un drivelist se envia a:/,c:/,d:/...etc, y lo qe yo kiero es qe solo seaa:, c:, d:... sin el / , y eso no se como se hace. Por cierto lo del /list no es nada, es solo para qe cuando llegen los datos al cliente sete sepa qe van al listbox.
No se si me explico

De todos modos gracias por la respuesta

[Punk-Rock]

Mira, te hare un mintuto, ya ke esto es muy basico....

Supiongamos ke tenemos A:\

y keremos sacar ese palito de atras, pues bien, hacemos esto:

Código:

dim a as string
dim b as string

a = "A:\"

b = left(a,2)

Y asi ya tenemos le ke necesitabas... .

Ahora bien, supongamos ke kieres kitar el ultimo caracter, pero no sabes kuantos caracteres tiene la frase, entonces se haria asi:

Código:

b = left(a, len(a)-1)

Como ves se trata de jugar kon estos dos komandos....

Te recomiendo tambien leer sobre Mid, funciona bastante bien.

Salu2

[Guan]

 Klaro, era eso gracias Hendrix, pero a mi me da qe no es tan basico porqe todo empieza a liarse cuando te sale c:(Disco local)/, d:(Dk 80)/, ... etc, pero vamos qe el mas simple de todos me sirve xDD

graxias