Espaço livre no pendrive ?????

[laurenti]

Como saber o espaço disponivel no pendrive ?, a diskspace() nao reconhece usb ? a adrive() retorna todas as unidades ativas mas nao encontrei uma que me retorne os espaço disponivel.

FWH 8.08/XHB1.1/Pelles/Mysql/fastreport

laurentinocarlos@gmail.com

Montes Claros MG

[laurenti]

Como saber o espaço disponivel no pendrive ?, a diskspace() nao reconhece usb ? a adrive() retorna todas as unidades ativas mas nao encontrei uma que me retorne os espaço disponivel.

FWH 8.08/XHB1.1/Pelles/Mysql/fastreport

laurentinocarlos@gmail.com

Montes Claros MG

[Geo_sts]

Faz assim..

wtama:=0

WSPC:=0

if wdrv='A:'

wspc:=1

elseif wdrv='B:'

wspc:=2

elseif wdrv='C:'

wspc:=3

elseif wdrv='D:'

wspc:=4

elseif wdrv='E:'

wspc:=5

elseif wdrv='F:'

wspc:=6

elseif wdrv='G:'

wspc:=7

elseif wdrv='H:'

wspc:=8

elseif wdrv='I:'

wspc:=9

elseif wdrv='J:'

wspc:=10

elseif wdrv='K:'

wspc:=11

elseif wdrv='L:'

wspc:=12

elseif wdrv='M:'

wspc:=13

elseif wdrv='N:'

wspc:=14

elseif wdrv='O:'

wspc:=15

elseif wdrv='P:'

wspc:=16

elseif wdrv='Q:'

wspc:=17

elseif wdrv='R:'

wspc:=18

elseif wdrv='S:'

wspc:=19

elseif wdrv='T:'

wspc:=20

elseif wdrv='U:'

wspc:=21

elseif wdrv='V:'

wspc:=22

elseif wdrv='X:'

wspc:=23

elseif wdrv='Z:'

wspc:=24

ENDIF

wtama:=(DISKSPACE(wspc))

Abraço

Geovanni Holior

Analista de Sistema

Clip53 * FHW 9.1/../9.4

skype:geovanni.holior

" Tudu Posso naquele que me Fortalece!"

[kapiaba]

Hi, veja se este tópico ajuda em alguma cousa:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=10050&start=15&hilit=pendrive

Abraços.

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632

FWH 2.7 - xHARBOUR WorkShop.Exe