How to know if a disk unit is connected?.

[graves]

Hi,
I've searched on the forum about this question, and no results.
I need to connect a Virtual disk in a unit selected by user, but previously I need to know if this unit is connected.
My approach is:

Code: Select all

 Units.s  = "DEFGHIJKLMNOPQRSTUVWXYZ"
   for n=1 to len(units)   
      chku.s = mid(units,n,1) + ":\"
      if ExamineDirectory(0, chku, "*.*")
; unit is connected 
        FinishDirectory(0)
      else
; unit is NOT connected

It's possible to check without Examinedirectory(), only with a test like "if FileSize" or so?
I've tried it with Filesize(mid(units,n,1) + ":\.") and it seems not run.

Regards

[minimy]

Hi, if only want use PB comands, this can be a simple solution.
I think is multiplataform.

Code: Select all

Procedure DriveExist(Drive.s)
  Protected exist
  If CreateFile(0,drive+"test")
    exist=#True
    CloseFile(0)
    DeleteFile(drive+"test")
  Else
    exist=#False
  EndIf
  ProcedureReturn exist
EndProcedure


Debug DriveExist("c:\")
Debug DriveExist("J:\")

[Deluxe0321]

FileSize("<drive>") should do the job.

Windows:
Will return -2 if the drive is connected
Will return -1 if not

Linux / MacOS:
Will return 0 if the drive is connected
Will return -1 if not.

Not the best solution, but should work.

Code: Select all

Procedure isDriveConnected(Path.s)
  
  If Path.s = ""
    ProcedureReturn #False    
  EndIf
  
  Protected Status.i = FileSize(Path.s)
  
  If Not (Status.i = 0 Or Status.i = -2)
    ProcedureReturn #False  
  EndIf
  
  ProcedureReturn #True
  
EndProcedure


CompilerSelect #PB_Compiler_OS
    CompilerCase #PB_OS_Windows
      Debug isDriveConnected("C:\")
      Debug isDriveConnected("H:\")
    CompilerDefault 
      OpenConsole()
      PrintN("--> "+ isDriveConnected("/dev/disk/by-uuid/25da5e6e-6cc6-46d7-894f-82f2c54da975"))
      PrintN("--> "+ isDriveConnected("/dev/disk/by-uuid/DEADBEEF_IM_NOT_EXISTING"))
CompilerEndSelect