Vb.net 如何检查另一个文件夹中的文件夹名称

我需要能够在网络上的计算机上检查文件夹中的文件夹名称，然后如果它被命名为单向，则相应地设置我的按钮。例如，我有两个按钮，一个是training，一个是production，它们所做的就是将网络上的计算机上的文件夹重命名为正确的名称，以便对其开发人员进行培训，对其开发人员进行生产。因此，当应用程序加载时，我希望它禁用当前设置为的按钮。因此，如果文件夹名为DEV，那么它将禁用培训按钮，如果文件夹名为DEVx，那么它将禁用生产按钮

这就是我目前所拥有的 所有代码都是VisualBasic

Public Class Form1

    Private Sub SetTraining227_Click(sender As Object, e As EventArgs) Handles SetTraining227.Click
        My.Computer.FileSystem.RenameDirectory("\\amti-0321\c$\temp\DEVx", "DEV")
        My.Computer.FileSystem.RenameDirectory("\\amti-0448\c$\temp\DEVx", "DEV")
        My.Computer.FileSystem.RenameDirectory("\\amti-0207\c$\temp\DEVx", "DEV")
        My.Computer.FileSystem.RenameDirectory("\\amti-0304\c$\temp\DEVx", "DEV")
        My.Computer.FileSystem.RenameDirectory("\\amti-0005\c$\temp\DEVx", "DEV")
        My.Computer.FileSystem.RenameDirectory("\\amti-0227\c$\temp\DEVx", "DEV")
        My.Computer.FileSystem.RenameDirectory("\\amti-0134\c$\temp\DEVx", "DEV")
        My.Computer.FileSystem.RenameDirectory("\\amti-0295\c$\temp\DEVx", "DEV")
        My.Computer.FileSystem.RenameDirectory("\\amti-0387\c$\temp\DEVx", "DEV")
        My.Computer.FileSystem.RenameDirectory("\\amti-0210\c$\temp\DEVx", "DEV")
        My.Settings.lastSet227 = "training"
        My.Settings.Save()
        setting227.Text = "Training"
        setprod227.Enabled = True
        SetTraining227.Enabled = False

    End Sub

    Private Sub setprod227_Click(sender As Object, e As EventArgs) Handles setprod227.Click
        My.Computer.FileSystem.RenameDirectory("\\amti-0321\c$\temp\DEV", "DEVx")
        My.Computer.FileSystem.RenameDirectory("\\amti-0448\c$\temp\DEV", "DEVx")
        My.Computer.FileSystem.RenameDirectory("\\amti-0207\c$\temp\DEV", "DEVx")
        My.Computer.FileSystem.RenameDirectory("\\amti-0304\c$\temp\DEV", "DEVx")
        My.Computer.FileSystem.RenameDirectory("\\amti-0005\c$\temp\DEV", "DEVx")
        My.Computer.FileSystem.RenameDirectory("\\amti-0227\c$\temp\DEV", "DEVx")
        My.Computer.FileSystem.RenameDirectory("\\amti-0134\c$\temp\DEV", "DEVx")
        My.Computer.FileSystem.RenameDirectory("\\amti-0295\c$\temp\DEV", "DEVx")
        My.Computer.FileSystem.RenameDirectory("\\amti-0387\c$\temp\DEV", "DEVx")
        My.Computer.FileSystem.RenameDirectory("\\amti-0210\c$\temp\DEV", "DEVx")
        My.Settings.lastSet227 = "prod"
        My.Settings.Save()
        setting227.Text = "Production"
        setprod227.Enabled = False
        SetTraining227.Enabled = True
    End Sub

    Private Sub QuitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitToolStripMenuItem.Click
        End
    End Sub
End Class

因此，我让它在每次加载按钮时保存其当前状态，并将另一个按钮设置为禁用，但由于其他用户也将使用此系统，因此最好根据文件夹名称的当前状态设置禁用的按钮。

您可以检查“\amti-0321\c$\temp\DEV”与

目录一起存在。存在

或

目录。获取目录

，并适当设置按钮状态

---

但是，这可能不是确定培训或生产状态的最佳方法，因为它假定只存在一组目录。另外，在路径中使用字符串常量以外的内容也很好。

？其中只有一个文件夹，或者应该只有一个文件夹。正在切换的应用程序只检查培训文件夹是否作为DEV存在，如果是，则将其从的服务器设置为培训服务器，以便可以重命名任何内容，然后使用生产服务器