检查目录的第一部分是否已经存在

Question

我创建了一个应用程序，该应用程序为用户正在调查的新站点创建了一个文件夹和一些其他文档。

用户输入必要的站点详细信息后，将检查文件夹是否存在，如果不存在，则会创建该文件夹。

这是我用来实现此目的的代码示例：

Public Class Form1

    Dim SiteName As String
    Dim SiteNumber As String

    Private Sub btnCreateFolder_Click(sender As Object, e As EventArgs) _
        Handles btnCreateFolder.Click

        SiteName = txtSiteName.Text
        SiteNumber = txtSiteNumber.Text

        CurrentSiteLoc = "C:\VBA\" & SiteNumber & " " & SiteName

        If Not IO.Directory.Exists(CurrentSiteLoc) Then
            MkDir(CurrentSiteLoc)

        Else
            MessageBox.Show("Folder already exists.")

        End If

    End Sub

End Class

如果用户始终使用正确的SiteName，则此检查效果很好，但是每个站点均由其站点号定义。

“ 524128角落的石头”

这是一个可能的站点文件夹名称的示例，但是用户可能还会决定添加更多信息，以便可以使用以下名称创建它：

“ 524128角石（L6）”

在目录中搜索具有相同站点编号而不是相同文件夹名称的文件夹的最佳方法是什么？

Answer 1

您可以使用Directory.GetDirectories()方法的搜索模式参数：

If System.IO.Directory.GetDirectories("C:\VBA\", SiteNumber & " *").Count = 0 Then
    MkDir(CurrentSiteLoc)
Else
    MessageBox.Show("Folder already exists.")
End If