CurDir Function
์ง์ ํ ๋๋ผ์ด๋ธ์ ํ์ฌ ๊ฒฝ๋ก๋ฅผ ๋ํ๋ด๋ ๋ณํ ๋ฌธ์์ด์ ํ์ํฉ๋๋ค.
๊ตฌ๋ฌธ:
CurDir [(Text As String)]
๋ฐํ ๊ฐ:
String
๋งค๊ฐ ๋ณ์:
Text: ๊ธฐ์กด ๋๋ผ์ด๋ธ๋ฅผ ์ง์ ํ๋ ์์์ ๋ฌธ์์ด ์์ ๋๋ค. ์๋ฅผ ๋ค์ด ์ฒซ ๋ฒ์งธ ํ๋ ๋๋ผ์ด๋ธ์ ์ฒซ ๋ฒ์งธ ํํฐ์ ์ ๋ํด์๋ "C"์ ๋๋ค.
๋๋ผ์ด๋ธ๋ฅผ ์ง์ ํ์ง ์๊ฑฐ๋ ๋๋ผ์ด๋ธ๊ฐ ๋น ๋ฌธ์์ด("")์ด๋ฉด CurDir์ ํ์ฌ ๋๋ผ์ด๋ธ ๊ฒฝ๋ก๋ฅผ ๋ฐํํฉ๋๋ค. ๋๋ผ์ด๋ธ ์ค๋ช ๊ตฌ๋ฌธ์ด ์๋ชป๋์๊ฑฐ๋, ๋๋ผ์ด๋ธ๊ฐ ์กด์ฌํ์ง ์๊ฑฐ๋, ๋๋ผ์ด๋ธ ๋ฌธ์๊ฐ CONFIG.SYS์ Lastdrive ๋ฌธ์ ์ง์ ๋ ๋ฌธ์๋ณด๋ค ๋ค์ ์๋ ๋ฌธ์์ผ ๊ฒฝ์ฐ LibreOffice Basic์ ์ค๋ฅ๋ฅผ ๋ณด๊ณ ํฉ๋๋ค.
์ด ํจ์๋ ๋/์๋ฌธ์๋ฅผ ๊ตฌ๋ถํ์ง ์์ต๋๋ค.
์:
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