>logre gracias a la ayuda compañeros de la lista, pero lo que deseo ahora
>saber es como encontrar una unidad disponible ya que siempre le asigno la
>"X:" a la conexción de red y si el usuario la tiene ocupada pues no se
>conecta.

Esta función te devuelve las unidades existentes en un sistema :

Function UnidadesExistentes() As String
Dim r As Long, allDrives As String, aux As String, i As Long

allDrives = Space$(64)
r = GetLogicalDriveStrings(Len(allDrives), allDrives)
aux = ""
For i = 1 To Len(allDrives)
    If Mid$(allDrives, i, 1) >= "a" And Mid$(allDrives, i, 1) <= "z" Then
aux = aux + Mid$(allDrives, i, 1)
Next i
UnidadesExistentes = aux

End Function


No olvides declarar la función del api utilizada :

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias
"GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As
String) As Long

Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma


------------------------------------------------------------------------
Was the salesman clueless?
Productopia has the answers.
http://clickhere.egroups.com/click/555



eGroups.com página principal: http://www.egroups.com/group/visualbasic-esp
http://www.egroups.com - Simplificando comunicaciones del grupo

>Alguien sabe cómo obtener sólo las unidades que son físicas (excluyendo a
>las unidades de red) ?

Adjunto envío una clase para obtener las unidades. Puedes ver unidades
removibles (disquetes y otras) , discos duros, unidades de red, cd-rom y
ram-disks o cualquier combinación de ellas.
Se acompaña también un form de ejmplo.

Me permito enviarlo a la lista porque mide menos de 3 Kb (no quinientas y
pico como el que envió alguien el otro día).




Un saludo.

_________________________________________________
José Rubí de la Vega
E-mail : jrubi@arrakis.es
WWW : http://www.arrakis.es/~jrubi
Podrás encontrar información sobre VB, la lista
VB-ESP y un resumen de los mensajes de la misma


------------------------------------------------------------------------
Solutions4SURE.com offers over 40,000 name brand computer
products and customized programs to fit your business and
technology needs! http://clickhere.egroups.com/click/654


Página principal de eGroups.com: http://www.egroups.com/group/visualbasic-esp
http://www.egroups.com - Simplificando las comunicaciones del grupo

 clogicaldrives.zip