2014-12-13 50 views
-1

我需要能夠檢查網絡上的計算機上的文件夾內的文件夾的名稱,然後如果它被命名爲一種方式相應地設置我的按鈕。所以例如我有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 

所以我把它保存其當前狀態每個按鈕加載時間和設置等按鈕被禁用,但由於其他用戶將會使用這個系統,它會更好地根據文件夾名稱的當前狀態設置禁用哪個按鈕。

+0

[Directory.GetDirectories()](http://msdn.microsoft.com/en-us/library/c1sez4sc%28v=vs.110%29.aspx)? – TyCobb 2014-12-13 01:20:49

回答

0

您可以檢查「\ amti-0321 \ c $ \ temp \ DEV」是否存在Directory.ExistsDirectory.GetDirectories,並適當設置按鈕狀態。

但是,這可能不是確定培訓或生產狀態的最佳方式,因爲它假設只存在一組目錄。另外,爲路徑使用字符串常量以外的內容會很好。

+0

那麼只有一個文件夾在那裏,或者應該只有一個文件夾。這個切換的應用程序僅檢查訓練文件夾是否作爲DEV存在,如果是這樣,則將它從服務器中取出的服務器設置爲訓練服務器,以便它可以被重命名爲任何東西,然後它將使用生產服務器 – 2014-12-13 03:29:13

相關問題