CurDir Function

์ง€์ •ํ•œ ๋“œ๋ผ์ด๋ธŒ์˜ ํ˜„์žฌ ๊ฒฝ๋กœ๋ฅผ ๋‚˜ํƒ€๋‚ด๋Š” ๋ณ€ํ˜• ๋ฌธ์ž์—ด์„ ํ‘œ์‹œํ•ฉ๋‹ˆ๋‹ค.

๊ฒฝ๊ณ  ์•„์ด์ฝ˜

This statement currently does not work as documented. See this issue for more information.


๊ตฌ๋ฌธ:

CurDir [(Text As String)]

๋ฐ˜ํ™˜ ๊ฐ’:

String

๋งค๊ฐœ ๋ณ€์ˆ˜:

Text: ๊ธฐ์กด ๋“œ๋ผ์ด๋ธŒ๋ฅผ ์ง€์ •ํ•˜๋Š” ์ž„์˜์˜ ๋ฌธ์ž์—ด ์‹์ž…๋‹ˆ๋‹ค. ์˜ˆ๋ฅผ ๋“ค์–ด ์ฒซ ๋ฒˆ์งธ ํ•˜๋“œ ๋“œ๋ผ์ด๋ธŒ์˜ ์ฒซ ๋ฒˆ์งธ ํŒŒํ‹ฐ์…˜์— ๋Œ€ํ•ด์„œ๋Š” "C"์ž…๋‹ˆ๋‹ค.

๋“œ๋ผ์ด๋ธŒ๋ฅผ ์ง€์ •ํ•˜์ง€ ์•Š๊ฑฐ๋‚˜ ๋“œ๋ผ์ด๋ธŒ๊ฐ€ ๋นˆ ๋ฌธ์ž์—ด("")์ด๋ฉด CurDir์€ ํ˜„์žฌ ๋“œ๋ผ์ด๋ธŒ ๊ฒฝ๋กœ๋ฅผ ๋ฐ˜ํ™˜ํ•ฉ๋‹ˆ๋‹ค. ๋“œ๋ผ์ด๋ธŒ ์„ค๋ช… ๊ตฌ๋ฌธ์ด ์ž˜๋ชป๋˜์—ˆ๊ฑฐ๋‚˜, ๋“œ๋ผ์ด๋ธŒ๊ฐ€ ์กด์žฌํ•˜์ง€ ์•Š๊ฑฐ๋‚˜, ๋“œ๋ผ์ด๋ธŒ ๋ฌธ์ž๊ฐ€ CONFIG.SYS์˜ Lastdrive ๋ฌธ์— ์ง€์ •๋œ ๋ฌธ์ž๋ณด๋‹ค ๋’ค์— ์žˆ๋Š” ๋ฌธ์ž์ผ ๊ฒฝ์šฐ LibreOffice Basic์€ ์˜ค๋ฅ˜๋ฅผ ๋ณด๊ณ ํ•ฉ๋‹ˆ๋‹ค.

์ด ํ•จ์ˆ˜๋Š” ๋Œ€/์†Œ๋ฌธ์ž๋ฅผ ๊ตฌ๋ถ„ํ•˜์ง€ ์•Š์Šต๋‹ˆ๋‹ค.

Error codes:

5 ์ž˜๋ชป๋œ ํ”„๋กœ์‹œ์ € ํ˜ธ์ถœ์ž…๋‹ˆ๋‹ค.

68 ์žฅ์น˜๋ฅผ ์‚ฌ์šฉํ•  ์ˆ˜ ์—†์Šต๋‹ˆ๋‹ค.

7 ๋ฉ”๋ชจ๋ฆฌ๊ฐ€ ๋ถ€์กฑํ•ฉ๋‹ˆ๋‹ค.

51 ๋‚ด๋ถ€ ์˜ค๋ฅ˜์ž…๋‹ˆ๋‹ค.

์˜ˆ:

Sub ExampleCurDir

Dim sDir1 As String , sDir2 As String

    sDir1 = "c:\Test"

    sDir2 = "d:\Private"

    ChDir( sDir1 )

    MsgBox CurDir

    ChDir( sDir2 )

    MsgBox CurDir

End Sub