「VB.NET]SetCurrentDirectoryで現在の作業ディレクトリを実行ディレクトリに設定

2021年11月26日

関数
Public Shared Sub SetCurrentDirectory (path As String)
アプリケーションの現在の作業ディレクトリを指定したディレクトリに設定します。
パラメーター
path 現在の作業ディレクトリが設定されるパス。
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Imports System.IO
Module Module1
Public Sub Main()
'ディレクトリの文字列を作成
Dim cft As String = "C:\data2"
Try
'現在のディレクトリを設定
Directory.SetCurrentDirectory(cft)
Catch e As DirectoryNotFoundException
Console.WriteLine("指定されたディレクトリは存在しません. {0}", e)
End Try
' 結果をコンソールに出力
Console.WriteLine("ルートディレクトリ: {0}", Directory.GetDirectoryRoot(cft))
Console.WriteLine("現在のディレクトリ: {0}", Directory.GetCurrentDirectory())
Console.ReadKey()
End Sub
End Module
Imports System.IO Module Module1 Public Sub Main() 'ディレクトリの文字列を作成 Dim cft As String = "C:\data2" Try '現在のディレクトリを設定 Directory.SetCurrentDirectory(cft) Catch e As DirectoryNotFoundException Console.WriteLine("指定されたディレクトリは存在しません. {0}", e) End Try ' 結果をコンソールに出力 Console.WriteLine("ルートディレクトリ: {0}", Directory.GetDirectoryRoot(cft)) Console.WriteLine("現在のディレクトリ: {0}", Directory.GetCurrentDirectory()) Console.ReadKey() End Sub End Module
Imports System.IO

Module Module1

    Public Sub Main()

        'ディレクトリの文字列を作成
        Dim cft As String = "C:\data2"
        Try
            '現在のディレクトリを設定
            Directory.SetCurrentDirectory(cft)
        Catch e As DirectoryNotFoundException
            Console.WriteLine("指定されたディレクトリは存在しません. {0}", e)
        End Try
        ' 結果をコンソールに出力
        Console.WriteLine("ルートディレクトリ: {0}", Directory.GetDirectoryRoot(cft))
        Console.WriteLine("現在のディレクトリ: {0}", Directory.GetCurrentDirectory())

        Console.ReadKey()
    End Sub

End Module

実行結果

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
ルートディレクトリ: C:\
現在のディレクトリ: C:\data2
ルートディレクトリ: C:\ 現在のディレクトリ: C:\data2
ルートディレクトリ: C:\
現在のディレクトリ: C:\data2

 

VB.net

Posted by arkgame