447 ! |
447 ! |
448 |
448 |
449 fullAlternativePathName |
449 fullAlternativePathName |
450 "return my complete MSDOS-path" |
450 "return my complete MSDOS-path" |
451 |
451 |
452 |altNameComponent fullAlternativePath fullAlternativeDirectoryName| |
452 |altNameComponent fullAlternativePath fullAlternativeDirectoryName info| |
453 |
453 |
454 self isRootDirectory ifTrue:[ |
454 self isRootDirectory ifTrue:[ |
455 ^ nameString |
455 ^ nameString |
456 ]. |
456 ]. |
|
457 |
457 (self name endsWith:$\) ifTrue:[ |
458 (self name endsWith:$\) ifTrue:[ |
458 ^ (self class named:self pathName) fullAlternativePathName |
459 ^ (self class named:self pathName) fullAlternativePathName |
459 ]. |
460 ]. |
460 altNameComponent := self info alternativeName. |
461 |
|
462 info := self info. |
|
463 info notNil ifTrue:[ |
|
464 ^ info alternativePathName. |
|
465 ]. |
|
466 |
461 fullAlternativeDirectoryName := self directory fullAlternativePathName. |
467 fullAlternativeDirectoryName := self directory fullAlternativePathName. |
462 (fullAlternativeDirectoryName endsWith:$\) ifTrue:[ |
468 (fullAlternativeDirectoryName endsWith:$\) ifTrue:[ |
463 fullAlternativePath := fullAlternativeDirectoryName |
469 fullAlternativePath := fullAlternativeDirectoryName, self baseName. |
464 , (altNameComponent ? self baseName). |
|
465 ] ifFalse:[ |
470 ] ifFalse:[ |
466 fullAlternativePath := fullAlternativeDirectoryName , '\' , (altNameComponent ? self baseName). |
471 fullAlternativePath := fullAlternativeDirectoryName , '\' , (altNameComponent ? self baseName). |
467 ]. |
472 ]. |
468 ^ fullAlternativePath |
473 ^ fullAlternativePath |
469 |
474 |
470 " |
475 " |
471 'C:\Dokumente und Einstellungen\str\Desktop\output folder' asFilename fullAlternativePathName |
476 'C:\Dokumente und Einstellungen\str\Desktop\output folder' asFilename fullAlternativePathName |
472 'C:\Dokumente und Einstellungen\str\Desktop\output folder' asFilename fullAlternativePathName asFilename exists |
477 'C:\Dokumente und Einstellungen\str\Desktop\output folder' asFilename fullAlternativePathName asFilename exists |
473 'C:\' asFilename fullAlternativePathName |
478 'C:\' asFilename fullAlternativePathName |
474 self halt. 'C:\Dokumente und Einstellungen\str\Desktop\output folder\' asFilename fullAlternativePathName asFilename |
479 'C:\Dokumente und Einstellungen\str\Desktop\output folder\' asFilename fullAlternativePathName asFilename |
475 " |
480 " |
476 ! |
481 ! |
477 |
482 |
478 isCDRom |
483 isCDRom |
479 "return true, if is is a drive" |
484 "return true, if is is a drive" |