|
of_DirectoryExists
|
|
Full name
|
pfc_n_cst_filesrvaix.of_DirectoryExists
|
Access
|
public
|
Extend of
|
boolean
|
Return value
|
boolean
|
Prototype
|
public function boolean of_DirectoryExists(string)
|
Name
|
Datatype
|
lul_RC
|
ulong
|
public function boolean of_DirectoryExists (string as_directoryname);//////////////////////////////////////////////////////////////////////////////
// Public Function: of_DirectoryExists
// Arguments: as_DirectoryName The name of the directory to be checked; an
// absolute path may be specified or it will
// be relative to the current working directory
// Returns: Boolean
// True if the directory exists, False if it does not.
// Description: Check if the specified directory exists.
//////////////////////////////////////////////////////////////////////////////
// Rev. History: Version
// 6.0 Initial version
//////////////////////////////////////////////////////////////////////////////
// Copyright © 1996-1999 Sybase, Inc. and its subsidiaries. All rights reserved. Any distribution of the
// PowerBuilder Foundation Classes (PFC) source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//////////////////////////////////////////////////////////////////////////////
ulong lul_RC
lul_RC = GetFileAttributesA(as_DirectoryName)
// Check if 5th bit is set, if so this is a directory
If Mod(Integer(lul_RC / 16), 2) > 0 Then
Return True
Else
Return False
End If
end function