我需要能夠檢查網絡上的計算機上的文件夾內的文件夾的名稱,然後如果它被命名爲一種方式相應地設置我的按鈕。所以例如我有2個按鈕,一個說訓練,一個說生產,他們所做的一切就是將網絡上的計算機上的文件夾重命名爲正確的名稱,以便訓練其DEV以及用於生產其DEVx。所以當應用程序加載時,我希望它禁用當前設置的那個按鈕。所以如果該文件夾被命名爲DEV,那麼它將禁用訓練按鈕,如果它的DEVx禁用了生產按鈕。如何檢查文件夾名稱是在另一個文件夾內
這是我到目前爲止 所有代碼的Visual Basic
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
所以我把它保存其當前狀態每個按鈕加載時間和設置等按鈕被禁用,但由於其他用戶將會使用這個系統,它會更好地根據文件夾名稱的當前狀態設置禁用哪個按鈕。
[Directory.GetDirectories()](http://msdn.microsoft.com/en-us/library/c1sez4sc%28v=vs.110%29.aspx)? – TyCobb 2014-12-13 01:20:49