Hi Saulius,
Similar thing as discussed just recently:
This behaviour is tied to the way OS implements
"dir change" function (that's why you had to paste
the DOS API documentation and not the Clipper one),
Clipper 5.3 (not CT) is only the messenger here,
the job is done by the OS. So this is a "virtual FS",
or "MS-DOS filesystem" emulation issue, not a C5.x
implementation issue. In Harbour for Win32, this
functionality is implemented by a "SetCurrentDirectory()"
Win32 API call, which - apparently - does change the
drive too.
If you want to make sure your code works on all OSes
and file-systems the same way, just strip the drive
from the passed path. You can use
HB_FNAMESPLIT()/HB_FNAMEMERGE() to do that:
DirChange( DriveStrip( cMyPath ) )
FUNCTION DriveStrip( cFullPath )
LOCAL cPath, cName, cExt
hb_FNameSplit( cFullPath, @cPath, @cName, @cExt )
RETURN hb_FNameMerge( cPath, cName, cExt )
Similar function to add an ending backslash, for Directory():
Directory( DirAddBackslash( cMyDir ) )
FUNCTION DirAddBackslash( cDir )
RETURN cDir + iif( !Empty( cDir ) .AND. ( !( Right( cDir, 1 ) $
hb_OSPathDelimiters() ) .OR. Right( cDir, 1 ) ==
hb_OSDriveSeparator() ), Set( _SET_DIRSEPARATOR ), "" )
(Both examples untested)
Brgds,
Viktor
On 2008.01.30., at 9:25, Saulius Zrelskis wrote:
Hi,
CT function DIRCHANGE in Clipper not change default disk,
while Harbour changes.
Proc main()
? DiskName()
? DirChange( "C:\WINDOWS" )
? DiskName()
Return
Clipper:
D
0
D
Harbour:
D
0
C
DOS API "CHDIR" - SET CURRENT DIRECTORY note:
if new directory name includes a drive letter, the default drive is
not changed, only the current directory on that drive.
best regards,
Saulius
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
