LISDIR() and Windows 2000 Server Servoce Pack 3

Board index FiveWin for Harbour/xHarbour LISDIR() and Windows 2000 Server Servoce Pack 3

Posts: 16

Joined: Sun Nov 27, 2005 01:57 AM

LISDIR() and Windows 2000 Server Servoce Pack 3
Posted: Sat Nov 17, 2007 02:03 AM

Hi all,

I have problem with OS Windows 2000 Server Service pack3
The function LISDIR() works perfect on any other OS, than this one.

Anyone has this experience?
IS there any help?

Regards

James Bott

Posts: 4840

Joined: Fri Nov 18, 2005 04:52 PM

LISDIR() and Windows 2000 Server Servoce Pack 3
Posted: Sat Nov 17, 2007 03:05 AM

Hi Boris,

I don't know about your specific problem, but I had this code in my notes file for Win98. Perhaps it will work for you.

James

Code: Select all Collapse

-----------------------
// Replacement for FW's lisDir() which can't handle Win 98 network
// paths like \\compaq\c\faxserve
function lisDir(cPath)
   local nHandle,lSuccess:=.f.
   cPath:=lfn2sfn(alltrim(cPath))
   cPath:=if(right(cPath,1)="\",left(cPath,len(cPath)-1),cPath)
   if file(cPath+"\testfile.$$$")
      lSuccess:=.T.
   elseif ( nHandle := fcreate( cPath + "\testfile.$$$" )) > 0
      fclose(nHandle)
      ferase(cPath + "\testfile.$$$")
      lSuccess := .T.
   endif
return lSuccess

FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

LISDIR() and Windows 2000 Server Servoce Pack 3
Posted: Sat Nov 17, 2007 06:22 AM

you may try this code also:

Code: Select all Collapse

function direxists( cpath )

local adir

return ( len( adir := directory( cpath, 'D' ) ) > 0 .and. adir[1][5] == 'D' )

This works with directories where the user does not have write permissions also. This works even without removing the trailing slash, if any. Hope it works on all versions of windows.

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion