>>Hi All.
>>
>>I've seen someone paste how to do this ever, but maybe I'm missing something, The code is:
>>
>
>You're missing the DECLARE fro GetDriveType
>
>DECLARE INTEGER GetDriveType IN Win32API STRING lpRootPathName
>
>
>>*****************
>>DECLARE INTEGER GetLogicalDrives IN Win32API
>>IF NOT "6." $ VERSION()
>> SET LIBRARY TO FOXTOOLS ADDITIVE
>>ENDIF
>>llfound = .F.
>>lni = 0
>>lnlast = 25
>>STORE "" TO lcresult, lcdrive
>>lndrives = GetLogicalDrives()
>>DO WHILE NOT llfound AND lni < lnlast
>> IF BITTEST(lndrives, lni)
>> lcdrive = CHR(65 + lni)
>> llfound = (GetDriveType(lcdrive) = 5)
>> ENDIF
>> lni = lni + 1
>>ENDDO
>>IF llfound
>> lcresult = lcdrive
>>ENDIF
>>RETURN lcresult
>>********************
>>
>>I got an error message "File: GetDriveType.prg does not exist" in VFP 6. Anybody tell me I'm missing?
>>
>
>I know it's heresy, but you can do this without FoxTools:
>
>

DECLARE INTEGER GetDriveType IN Win32API ;
>   STRING @ lpRootPathName
>DECLARE INTEGER GetLogicalDriveStrings IN WIN32API ;
>   INTEGER nLength, ;
>   STRING @ lpBuffer
>
>LOCAL cBuffer, nLength, nResult, cTest, cCDROM

*   No need to declare nResult here, since it isn't referenced in the example

>cBuffer = SPACE(2000)
>nLength = GetLogicalDriveStrings(2000,@cBuffer)
>cCDROM = NULL
>IF nLength > 0
>   IF nLength > 2000
>      cBuffer = SPACE(nLength + 1)
>      nLength = GetLogicalDriveStrings(nLength,@cBuffer)
>   ENDIF
>   cBuffer = LEFT(cBuffer, nLength)
>   DO WHILE LEN(cBuffer) > 0
>      nLength = AT(CHR(0), cBuffer)
>      IF nLength # 0
>         cTest = LEFT(cBuffer,nLength-1)
>         cTest = IIF(LEN(cBuffer) > nLength, SUBST(cBuffer,nLength + 1), '')

*  Code error caused by insufficient coffee;  this should read:

         cBuffer = IIF(LEN(cBuffer) > nLength, SUBST(cBuffer,nLength + 1), '')

>      ELSE
>         cTest = cBuffer
>         cBuffer = ''
>      ENDIF
>      IF GetDriveType(cTest) = 5
>         cCDROM = IIF(ISNULL(cCDROM),'',cCDROM +';') + cTest
>      ENDIF
>   ENDDO
>ENDIF
>