如何在 dyrectory.exist 方法中设置变量路径 vb.net

Question

在vb.net项目中，我使用方法在加载表单时确定文件夹是否存在：

If System.IO.Directory.Exists(Application.StartupPath & "\photo\") = False Then

（然后：如果文件夹 "photo" 不存在，表单会显示一个文件夹浏览器对话框，并且用户必须选择一个新的照片文件夹并且工作正常，选择的路径将写入一个标签，但我想更改初始路径（稍后我想在外部设置，可能从配置文本文件或类似的灵活变量路径中读取）我不知道如何修改： Application.StartupPath & "\photo\"部分方法我试过：

If System.IO.Directory.Exists(label2.text) = False Then

添加 Application.StartupPath & "\photo\" 作为文本以及 label2[=27= 的标签属性 ] 但是不行！！ :(

注意：作为文本，label2 不显示 & 符号而是 _ 我想也许这就是问题所在…… 有什么建议吗？？

Answer 1

一种相当直接的方法是在应用程序中创建设置。像这样。

在解决方案资源管理器中，右键单击您的解决方案名称。在上下文菜单的底部，单击 Properties。这将打开一个新选项卡。

在新 window 的左侧，您会看到一个类别列表。点击Settings

在主要部分，您现在将看到 table 行和列。可能只有一排，但没关系。找到旁边有星号的行，然后单击名称列中的单元格。

现在您可以键入要创建的设置的名称。要与下面的代码匹配，请键入 defaultPhotoPath.

完成后，单击下一个单元格并选择您希望它包含的数据类型。出于您的目的，您需要选择 String。此时，不要添加值，我们将使用一些代码来完成。

关闭 Properties 选项卡。

单击 Build 菜单并选择重建

好的。到一半了。

在您的程序中，您需要代码来检查我们创建的设置，如果它是空的，找到正确的文件夹，并将设置更改为正确的文件夹。

Private Sub GetDefaultPhotoPath()
    If My.Settings.defaultPhotoPath = "" Then
        defaultPhotoPath = Path.Combine(Application.StartupPath, "photo")
        If Not Directory.Exists(defaultPhotoPath) Then
            Dim newDefaultDirectory As String = "get your correct directory path here"
            defaultPhotoPath = Path.Combine(newDefaultDirectory, "photo")
            My.Settings.defaultPhotoPath = newDefaultDirectory
            My.Settings.Save()
        End If
    End If
End Sub

所以。这样做是为了检查我们创建的设置的值，如果还没有设置，检查 "photo" 目录是否在 application 文件夹中。如果没有，那么您应该使用您必须选择目录并将其分配给 newDefaultDirectory

的代码

最后，它将您的值保存到设置属性。下一次是运行，它应该在没有任何交互的情况下找到正确的文件夹。

如何在 dyrectory.exist 方法中设置变量路径 vb.net

How can i set variable path at dyrectory.exist method at vb.net

vb.net

directory

config

path