xsharp.eu

Code: Select all

FUNCTION DiskSpace() AS INT64 
FUNCTION DiskSpace(nDrive AS INT) AS INT64
FUNCTION DiskSpace(cDrive AS STRING) AS INT64 

Code: Select all

FUNCTION DiskSpace() AS INT64 
FUNCTION DiskSpace( cDrive AS STRING ) AS INT64 
FUNCTION DiskSpace( cDrive AS STRING , nType AS INT ) AS INT64 

Code: Select all

FUNCTION DiskSpace() AS INT64 

	// replacement for the existing core code 
	
	IF Runtimestate.Dialect == XSharpDialect.FoxPro
		RETURN DiskSpace ( CurDrive(), 2 )   // 2 is the VFP <nType> default 
	ELSE 
		RETURN DiskSpace ( CurDrive(), 1 )   // VO returns always oDrive:TotalSize  		
	ENDIF 

FUNCTION DiskSpace(cDrive AS STRING) AS INT64

	// replacement for the existing core code 
	
	IF Runtimestate.Dialect == XSharpDialect.FoxPro
		RETURN DiskSpace ( cDrive , 2 )   // 2 is the VFP <nType> default 
	ELSE 
		RETURN DiskSpace ( cDrive , 1 )   // VO returns always oDrive:TotalSize  		
	ENDIF 


FUNCTION DiskSpace(nDrive AS INT) AS INT64
	LOCAL cDisk AS STRING
	cDisk := DiskNo2DiskName(nDrive)
	RETURN DiskSpace(cDisk, 1 ) <---- // VO returns always oDrive:TotalSize 

:

Code: Select all

FUNCTION DiskSpace( cDrive AS STRING , nType AS INT ) AS INT64 
LOCAL result AS INT64 


	IF String.IsNullOrEmpty(cDrive) 
		cDrive := CurDrive() 
	ELSEIF cDrive:Length > 1 
		cDrive := cDrive:Substring(0,1)+":"
	ENDIF 


	// todo: verify the nType param 

	
	TRY 
		
		// XSharp.IO.File.ClearErrorState()		
		
		VAR oDrive := System.IO.DriveInfo{cDrive}


		// todo: verify the results   
				
		SWITCH nType
			
		CASE 1
			result := oDrive:TotalSize  
		CASE 2  
			result := oDrive:TotalFreeSpace  
		CASE 3				
			result := oDrive:AvailableFreeSpace  
			
		END SWITCH 
	
		
	CATCH e AS Exception 
		
		// XSharp.IO.File.SetErrorState(e)

		IF Runtimestate.Dialect == XSharpDialect.FoxPro		
			result := -1		
		ELSE 
			result := 0		
		ENDIF 			
		
	END TRY 			
	
	RETURN result

Code: Select all

clear
set talk off


cStartDir = Set ("default") + CurDir()
? cStartDir

? Set ("default")					&& "D:"
? CurDir()							&& ""
? sys(5)							&& "D:"
? FullPath ( Set ("default" ) )		&& "D:"
? sys(5) + CurDir()					&& "D:"
?
set default TO d:test
? Set ( "default" )					&& "D:"
? CurDir()							&& "TEST"
? sys(5)							&& "D:"
? FullPath ( Set ("default" ) )		&& "D:TEST"
? sys(5) + CurDir()					&& "D:TEST"

?
set default TO f:xide
? Set ( "default" )					&& "F:"
? CurDir()							&& "XIDE"
? sys(5)							&& "F:"
? FullPath ( Set ("default" ) )		&& "F:XIDE"
? sys(5) + CurDir()					&& "F:XIDE"

?
Set default TO (cStartDir)
? Set ( "Default" )					&& "D:"
? CurDir()							&& ""
? sys(5)							&& "D:"
? FullPath ( Set ("default" ) )		&& "D:"
? sys(5) + CurDir()					&& "D:"

Code: Select all

FUNCTION Start( ) AS VOID 

	? GetDefault()  // C:XIDEProjectsProject1BinDebug
	? CurDrive()	// C
	? CurDir()	// XIDEProjectsProject1BinDebug 
	?
	DirChange ( "D:TEst" )
    	?
	? GetDefault()	// C:XIDEProjectsProject1BinDebug // <--  still the same	
	? CurDrive()	// D
	? CurDir()	// TEst     
	?
	SetDefault ( "C:windows")
	? GetDefault()	// C:windows
	? CurDrive()	// D  	<--  still the same  
	? CurDir()	// TEst	<--  still the same