Как узнать сколько свободно байт на флешке ?

Форум

Как узнать сколько свободно байт на флешке ?

Andrey: Чем можно узнать свободное место на флешках, дисках и т.д. для HARBOUR (и для МиниГуи) ? Нашел пример Z:\HB32\tests\tstdspac.prg - а там глухо, нули возвращает функция hb_DiskSpace() Bytes available on disk: 0 Bytes available for use: 0 Bytes used: 0 Total bytes at D: 0

Ответов - 9

Dima: Andrey пишет: Чем можно узнать свободное место на флешках, дисках и т.д. для HARBOUR (и для МиниГуи) Снова ты смешал в кучу гуй и harbour. Ну не надо их смешивать Андрей ;)

Andrey: Dima пишет: Снова ты смешал в кучу гуй и harbour Да не смешиваю я их... Просто указал что не работает эта функция в Harbour 3.2 последней сборке, т.к. МиниГуи последней сборки !

Pasha: Да работает эта функция tstdspac.exe h: Bytes available on disk: 172,453,888 Bytes available for use: 172,453,888 Bytes used: 3,824,783,360 Total bytes at h:: 3,997,237,248

Dima: diskspac.prg из \svn\harbour-trunk\harbour\tests\ [pre2] C:\svn\harbour-trunk\harbour\tests>diskspac.exe c: Bytes available on disk: 191,213,600,768 Bytes available for use: 191,213,600,768 Bytes used: 58,843,103,232 Total bytes at c:: 250,056,704,000 [/pre2]

Dima: Andrey Тему убивать ?

Andrey: Dima пишет: Тему убивать ? Нет ! Можно в МиниГуи перекинуть... Pasha пишет: Да работает эта функция А в МиниГуи не работает .... Что делать ? Может какую либу добавить в МиниГуи ? Вот исходник на МиниГуи... #include "minigui.ch" #include "fileio.ch" #define COMPILER MiniGUIVersion() + ", " + Version() + ", " + hb_compiler() #define PROGRAMMTEST "Test disk SPACE" *-----------------------------------------------------------------------------* FUNCTION Main() *-----------------------------------------------------------------------------* LOCAL cText := COMPILER DEFINE WINDOW Form_1 ; At 0, 0 ; WIDTH 600 HEIGHT 400 ; TITLE PROGRAMMTEST ; MAIN ; NOMAXIMIZE NOSIZE ; BACKCOLOR { 159, 191, 236 } @ 10, 10 LABEL Label_9 WIDTH 590 HEIGHT 480 ; VALUE MyDiskInfo() TRANSPARENT FONT "ARIAL" ; SIZE 14 BOLD FONTCOLOR BLUE BACKCOLOR YELLOW CENTERALIG cText := StrTran(cText, "Harbour", "HB") DEFINE STATUSBAR FONT "MS Sans serif" SIZE 10 BOLD STATUSITEM cText END STATUSBAR END WINDOW CENTER WINDOW Form_1 ACTIVATE WINDOW Form_1 RETURN Nil ///////////////////////////////////////////////////////////// FUNCTION MyDiskInfo() LOCAL cRet, cDisk := "C" cRet := MiniGUIVersion() + CRLF + Version() + CRLF + hb_compiler() + CRLF + CRLF cRet += "Bytes available on disk: " + Transform( hb_DiskSpace( cDisk, HB_DISK_FREE ), "999,999,999,999" ) + CRLF cRet += "Bytes available for use: " + Transform( hb_DiskSpace( cDisk, HB_DISK_AVAIL ), "999,999,999,999" ) + CRLF cRet += " Bytes used: " + Transform( hb_DiskSpace( cDisk, HB_DISK_USED ), "999,999,999,999" ) + CRLF cRet += " Total bytes at " + cDisk + ": " + Transform( hb_DiskSpace( cDisk, HB_DISK_TOTAL ), "999,999,999,999" ) + CRLF RETURN cRet

gfilatov2002: Andrey пишет: Что делать ? Измени одну строку в функции MyDiskInfo(), и все заработает LOCAL cRet, cDisk := "C:\"

Andrey: gfilatov2002 пишет: Измени одну строку в функции MyDiskInfo(), и все заработает Ну вот, как всегда... Залет на пустом месте... Спасибо БОЛЬШОЕ, Григорий !!!

Dima: Andrey пишет: Нет ! Можно в МиниГуи перекинуть... Перенес Andrey пишет: Ну вот, как всегда... Залет на пустом месте... Теперь пусть модераторы раздела с этой темой разбираются.

полная версия страницы