DISKUTILS

Example :

 Этот пример создает массив для хранения имен всех файлов с
 расширением (.txt) в текущей директории и выдает их имена на
 консоль при помощи функции AEVAL():
 
 LOCAL aFiles[ADIR("*.txt")]
 ADIR("*.txt", aFiles)
 AEVAL(aFiles, {|element| QOUT(element) })

Example :

 Следующая группа примеров демонстрирует различные способы
 использования функции CURDIR():
 
 ? CURDIR("E:")   // Результат: нулевая строка - корневой каталог
 ? CURDIR("C")    // Результат: dir1\dir2
 ? CURDIR("C:")   // Результат: dir1\dir2
 ? CURDIR()       // Результат: нулевая строка - корневой каталог
 ? CURDIR("A")    // Результат: нулевая строка - дисковод не готов

Example :

 The following example attempts to change to the "c:\dos"
 directory.  If it is unsuccessful, an error message is displayed.
 
 nResult :=  DIRCHANGE("c:\dos")
 
 IF nResult != 0
 ? "Cannot change directory. "
 DO CASE
 CASE nResult == 3
 ?? "Directory does not exist."
 CASE nResult == 5
 ?? "Access to directory denied."
 END
 BREAK
 ENDIF
 
 You may also use something like this:
 
 DIRCHANGE( "..\..\test" )

Example :

 This example assumes that C:\TEST exists and uses DIRMAKE()
 twice to create a nested subdirectory under it:
 
 DIRMAKE("c:\test\one")    // Create top-most one
 nResult := DIRMAKE("c:\test\one\two")
 IF nResult != 0
 ? "Cannot make directory, DOS error ", nResult
 BREAK
 ENDIF
 
 You may also use something like this:
 
 DIRMAKE( ".\test" )

Example :

 This example uses DIRREMOVE() to delete a subdirectory named
 C:\TEST\ONE, which only contains an empty subdirectory named
 C:\TEST\ONE\TWO:
 
 DIRREMOVE("c:\test\one\two")        // First delete lowest dir
 nResult := DIRREMOVE("c:\test\one")  // Then delete higher dir
 IF nResult != 0
 ? "Cannot remove directory, DOS error ", siResult
 BREAK
 ENDIF

Example :

 This example uses DISKCHANGE() to change to drive "D":
 
 IF DISKCHANGE("D:")
 ? "Successfully changed"
 ELSE
 ? "Not changed"
 ENDIF
 
 
 This example builds a string that contains all currently
 available drives on your system:
 
 FUNCTION AllDrives()
 LOCAL wI, cDrives := ""
 
 FOR wI := 1 TO 26
 IF DISKCHANGE( Chr(wI + 64) )
 cDrives := cDrives + Chr(wI + 64)
 ENDIF
 NEXT
 RETURN cDrives

Example :

 This example illustrates the relationship between
 DISKNAME()and DISKCHANGE() and shows that DISKNAME() is unaffected by
 the SET DEFAULT TO command:
 
 ? DISKNAME()      // C
 SET DEFAULT TO A
 ? DISKNAME()      // C
 DISKCHANGE("A")
 ? DISKNAME()      // A
 DISKCHANGE("C")
 ? DISKNAME()      // C

Example :

 В этом примере показана функция пользователя, которая демонстрирует
 использование функции DISKSPACE() для сохранения файла базы данных
 на другом устройстве:
 
 FUNCTION BackUp( cTargetFile, cTargetDrive )
 LOCAL nSpaceNeeded, nTargetDrive
 //
 nSpaceNeeded = INT( RECSIZE() * LASTREC()) + HEADER() + 1)
 nTargetDrive := ASC( UPPER(cTargetDrive)) - 64
 //
 IF DISKSPACE(nTargetDrive) < nSpaceNeeded
 RETURN .F.
 ENDIF
 COPY TO (cTargetDrive + ":" + cTargetFile)
 //
 RETURN .T.

Example :

  SET("C:", "/usr/home/user1")
 sUnixFileName := "/usr/home/user1/test.prg"
 
 ? DOSPATH(sUnixFileName) 	// --> C:\test.prg
 

Example :

  SET("C:\", "/usr/home/user1/")
 sFileName := "C:\clip\include\clip.ch"
 
 ? MAKEPATH(sFileName)		// --> /usr/home/user1/clip/include/clip.ch
 

Example :

  ? CURDIR()		// --> /usr/home/user1/test
 ? STARTPATH()		// --> /usr/home/user1/test/mytest
 
 ? DIRCHANGE("mybase")	// --> 0
 
 ? CURDIR()		// --> /usr/home/user1/test/mybase
 ? STARTPATH()		// --> /usr/home/user1/test/mytest