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，则此检查将完美运行，但每个站点都由其站点号定义。

＆＃34; 524128 Corner's Stone＆＃34;

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

＆＃34; 524128角落之石（L6）＆＃34;

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

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

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

1 个答案: