recurdo compartido

Declare Auto Function GetDiskFreeSpaceEx Lib
"kernel32.dll" ( _
ByVal lpDirectoryName As String, _
ByRef lpFreeBytesAvailableToCaller As Long, _
ByRef lpTotalNumberOfBytes As Long, _
ByRef lpTotalNumberOfFreeBytes As Long) As Integer

...
...

Dim userbytes, totalbytes, freebytes As Long
Dim Drive As String = "\\Server\Recurso\"

GetDiskFreeSpaceEx(Drive, userbytes, totalbytes,
freebytes)
MsgBox(Drive & freebytes \ (1024 ^ 3) & " GB")

Saludos
-
Freddy Cáceres
Santiago - Chile

Hola a todos,

Quería saber, si yo tengo un string con el nombre (UNC) de

un recurso

compartido (por ej. \\PC1\Directorio1)
como puedo determinar qué espacio libre hay en la unidad

que contiene

Directorio1 dentro del equipo PC1???
Esta información la quiero obtener desde otro equipo que

no es el PC1.

Alguna idea?
Muchas gracias,
Xavier Valdés


.

Gracias por tu respuesta, Freddy... pero cuando la unidad es muy grande se
me trunca a 5.28GB de freespace!
Alguna idea?

"Freddy Cáceres" escribió en el mensaje
news:058401c4b861$f942a750$
Declare Auto Function GetDiskFreeSpaceEx Lib
"kernel32.dll" ( _
ByVal lpDirectoryName As String, _
ByRef lpFreeBytesAvailableToCaller As Long, _
ByRef lpTotalNumberOfBytes As Long, _
ByRef lpTotalNumberOfFreeBytes As Long) As Integer

...
...

Dim userbytes, totalbytes, freebytes As Long
Dim Drive As String = "\\Server\Recurso\"

GetDiskFreeSpaceEx(Drive, userbytes, totalbytes,
freebytes)
MsgBox(Drive & freebytes \ (1024 ^ 3) & " GB")

Saludos
-
Freddy Cáceres
Santiago - Chile

Hola a todos,

Quería saber, si yo tengo un string con el nombre (UNC) de

un recurso

compartido (por ej. \\PC1\Directorio1)
como puedo determinar qué espacio libre hay en la unidad

que contiene

Directorio1 dentro del equipo PC1???
Esta información la quiero obtener desde otro equipo que

no es el PC1.

Alguna idea?
Muchas gracias,
Xavier Valdés


.