Problems with EXISTS using Mapped Drive

francisco_viviers · May 10, 2021, 7:25pm

Hi there!,

I have an issue using the EXISTS procedure with a path that includes a network drive (can’t find the path), is there an alternative way?

CarlBarnes · May 10, 2021, 8:18pm

CWUtil.clw has FileExists() that uses API FindFirstFile(). You could try calling API GetFileAttributes().

Neither of these is probably going to work if there is no network connection to the server. I used to ShellExecute to open the folder in Windows Explorer and it would connect.

gist.github.com

https://gist.github.com/CarlTBarnes/d301e2cffa475820f6cc4e9fd7895ff9

ExistsDirectory_or_ExistsFile.clw

! Clarion EXISTS() returns True for File or Directory. 
! Sometimes you need to know you have a Directory, or a File
!-----------------------------------------------------------------------------------------------------
  MAP
ExistsDirectory PROCEDURE(STRING pDirName),BOOL  !True if Directory and Not file
ExistsFile      PROCEDURE(STRING pFileName),BOOL !True if File and Not Directory
  
  MODULE('win32.lib')
    GetFileAttributes(*CSTRING FileName),LONG,PASCAL,DLL(1),RAW,NAME('GetFileAttributesA')  !Returns Attribs 
  END

This file has been truncated. show original

FileExists         PROCEDURE ( STRING sFile )

bRetVal            BYTE,AUTO
hFindHandle        SIGNED,AUTO
szFindFile         CSTRING(FILE:MaxFileName),AUTO
gFileFind          LIKE (WIN32_FIND_DATA),AUTO

  CODE
  hFindHandle = 0
  bRetVal     = FALSE
  szFindFile  = CLIP (sFile)
  CLEAR (gFileFind)

  hFindHandle = FindFirstFile (szFindFile, gFileFind)
  bRetVal = CHOOSE (NOT (hFindHandle = INVALID_LONG_VALUE OR hFindHandle <= 0))

  FindClose (hFindHandle)
  RETURN bRetVal

francisco_viviers · May 10, 2021, 8:47pm

Thanks Carl! Very Useful!