[amel27]

gek20080402, пример определения свободного размера HDD на VBS:

Код:

Set oFSO = CreateObject("Scripting.FileSystemObject")

For Each oDrive In oFSO.Drives
   If oDrive.DriveType=2 And oDrive.IsReady Then
      sList = sList &"Free size on "& oDrive.DriveLetter &": "& vbTab & _
      Round(oDrive.FreeSpace/2^30) &"Gb"&vbCrLf
   End If
Next

WScript.Echo sList

[avolkov2009]

Если я правильно понял, проблема в том, что, к примеру, программа установлена на c:\law и перенести ее в другое место нельзя. Базы к программе должны лежать в том же каталоге, но, увы, диск c: не резиновый
Могу предложить следующее решение проблемы (работает на разделах с файловой системой NTFS). Допустим, у нас есть раздел e:, где очень много места. Тогда можно сделать каталог e:\law, переписать туда содержимое c:\law, последний удалить и сделать т.н. directory junction (аналог символической ссылки в *NIX).
Увы, не знаю консольной команды которая может выполнить данную операцию, но FAR Manager прекрасно справляется с этим по нажатию <Alt>+<F6>.
После этого можно преспокойно распаковывать все архивы с базами в c:\law (пока не закончится место на e: ).

[Vadikan]

Увы, не знаю консольной команды которая может выполнить данную операцию »

http://vadikan.spaces.live.com/blog/...BAEE!264.entry

[gek20080402]

ребята всем огоромное спасибо буду пробывать