Отправлено: 24.06.13 22:10. Заголовок: Как узнать сколько свободно байт на флешке ?

Чем можно узнать свободное место на флешках, дисках и т.д. для 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

 Отправлено: 24.06.13 22:49. Заголовок: Andrey пишет: Чем м..

Andrey пишет:

цитата:

Чем можно узнать свободное место на флешках, дисках и т.д. для HARBOUR (и для МиниГуи)

Снова ты смешал в кучу гуй и harbour. Ну не надо их смешивать Андрей ;)

 Отправлено: 24.06.13 23:45. Заголовок: Dima пишет: Снова т..

Dima пишет:

цитата:

Снова ты смешал в кучу гуй и harbour

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

 Отправлено: 25.06.13 09:07. Заголовок: Да работает эта функ..

Да работает эта функция

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

 Отправлено: 25.06.13 09:10. Заголовок: diskspac.prg из \..

diskspac.prg из \svn\harbour-trunk\harbour\tests\

 
 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 
 

 Отправлено: 25.06.13 17:35. Заголовок: Andrey Тему убивать..

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

 Отправлено: 26.06.13 12:37. Заголовок: Dima пишет: Тему уб..

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

 Отправлено: 26.06.13 12:50. Заголовок: Andrey пишет: Что д..

Andrey пишет:

цитата:

Что делать ?

Измени одну строку в функции MyDiskInfo(), и все заработает

цитата:

LOCAL cRet, cDisk := "C:\"

 Отправлено: 26.06.13 12:59. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Измени одну строку в функции MyDiskInfo(), и все заработает

Ну вот, как всегда... Залет на пустом месте...
Спасибо БОЛЬШОЕ, Григорий !!!

 Отправлено: 26.06.13 16:45. Заголовок: Andrey пишет: Нет !..

Andrey пишет:

цитата:

Нет ! Можно в МиниГуи перекинуть...

Перенес

Andrey пишет:

цитата:

Ну вот, как всегда... Залет на пустом месте...

Теперь пусть модераторы раздела с этой темой разбираются.