VB.NET, C#, PowerShell Tipsサイト

Imports System.IO
:
:省略
:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    '変数の宣言
    Dim strCurDir As String

    'カレントフォルダを[C:\Work]に設定する
    Directory.SetCurrentDirectory("C:\Work")

    '設定後のカレントフォルダを取得する
    strCurDir = Directory.GetCurrentDirectory()

    '取得したカレントディレクトリを表示する
    MessageBox.Show("カレントディレクトリは [" & strCurDir & "] です")

End Sub