List all available drrives (OpenInsight 32-bit Specific) [Revelation On-Line Wiki]

OpenInsight 32-bit Specific

Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community

At 05 SEP 2008 12:17:24PM Jim Eagan wrote:

Is there any way to get a list of all available drives?

At 05 SEP 2008 01:57PM Jim Eagan wrote:

forgot to mention OI7.2.2 running under Win2000 and XP

At 08 SEP 2008 01:37PM Richard Hunt wrote:

You could loop using the DIREXISTS function.

AVAILABLE_DRIVES='

FOR SEQUENCE EQ SEQ('C') TO SEQ('Z')

PATH=CHAR(SEQUENCE):':\'

IF (DIREXISTS(PATH) EQ 1) THEN

AVAILABLE_DRIVES=SEQ(SEQUENCE)

END

NEXT SEQUENCE

You might also want to check for remote drives also.

PATH=\\TSCLIENT\':CHAR(SEQUENCE):'\'

At 08 SEP 2008 08:08PM Jim Eagan wrote:

Richard, THANKS VERY MUCH!

At 16 SEP 2008 08:02AM [url=http://www.sprezzatura.com]The Sprezzatura Group[/url] wrote:

Or you could use the Windows API

pre.code {

  background-color: #E5E5E5;

  border: 1px solid #000000;

  width: 450px;

  padding: 5px;

  font-family: courier, verdana, arial, serif;

  margin: 0px 10px auto;

}

  
  Declare Function GetLogicalDrives
  Drives=GetLogicalDrives()
  Binary=Oconv(Drives, "MB")
  LenBinary=Len(Binary)
  DriveString="
  Letter=65
  For Ptr=LenBinary To 1 Step -1
    If BinaryPtr, 1 Then
      DriveString := Char(Letter) : ","
    End
    Letter += 1
  Next
  DriveString-1, 1="

The Sprezzatura Group

World leaders in all things RevSoft

At 16 SEP 2008 10:54AM Jim Eagan wrote:

Even better - THANKS!

View this thread on the forum...