ዳይሬክቶሪ መቀየሪያ አረፍተ ነገር

ዳይሬክቶሪ መቀየሪያ እንደ ሀረግ

Sub ExampleChDir

Dim sDir1 As String , sDir2 As String

    sDir1 = "c:\Test"

    sDir2 = "d:\Private"

    ChDir( sDir1 )

    MsgBox CurDir

    ChDir( sDir2 )

    MsgBox CurDir

End Sub