などのファイルへのフル パスが渡される関数を使用してC:\someFolder\anotherFolder\someXML.xml
、フォルダーが存在するかどうかを判断します。これを行うためのよりスマート/より良い/よりエレガントな方法はありますか? これが私の実装です:
Private Function FolderExists(ByVal fullPath As String) As Boolean
Dim folders() As String = fullPath.Split("\")
Dim folderPath As String = ""
For i As Integer = 0 To folders.Length - 2 'subtract 2 to avoid appending the filename.
folderPath += folders(i) + "\"
Next
Dim f As New DirectoryInfo(folderPath)
Return f.Exists
End Function