2015-04-19 137 views
0

我有一個標題爲「藝術」的文件夾,其中包含各種子文件夾,其中一個標題爲「音樂」。這種 '音樂' 子文件夾中包含的各種格式的文本文件:如何搜索特定文本文件的子文件夾

約翰Doe.TXT

約翰Lennon.TXT

埃爾頓John.TXT現在

,在我的表,我有兩個文本框,其中用戶可以像這樣輸入藝術家的名字;

Textbox1.Text =約翰

Textbox2.Text =儂

我想實現的是,在點擊這個表單上的按鈕,程序搜索「藝術」父文件夾的「音樂「子文件夾,然後在該音樂子文件夾中搜索與文本框1和2連接的藝術家姓名完全匹配的文本文件名。

如果文本文件名與從文本框1連接的藝術家姓名完全匹配和2,然後顯示一條消息。如果音樂子文件夾中沒有文本文件名稱與從文本框1和2連接的名稱匹配;然後顯示沒有找到文件的消息。

下面的代碼是不完整的,只是顯示了我如何指定主文件路徑。我不知道如何繼續讓程序去做以上的事情。

我正在使用Visual Basic 2010 Express。感謝您的幫助。

Dim FilePath As String 
     FilePath = (Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "The Arts\")) 

     'This section is where I am stuck and need help...Thank you in advance. 

     If File.Exists(FilePath) Then 
      MsgBox("File found.") 
     Else 
      MsgBox("A record does not exist for this artist.") 
      Exit Sub 
     End If 

回答

2

如何檢查是否一個文本文件名從文本框1級聯藝術家的名字和2

您需要先串聯從文本框中的文本完全匹配,這給你的榜樣,需要用空格分隔。有幾種方法可以實現這一點。

例如像this

Dim artistName = TextBox1.Text + " " + TextBox2.Text 

或者this

Dim artistName = String.Concat(TextBox1.Text, " ", TextBox2.Text) 

而且有更多的方式來做到這一點。

接下來,您需要將其組裝成完整的文件路徑名稱。對於可讀性是情理之中的事這幾個步驟:

' Directory 
Dim desktopPath = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) 
Dim musicPath = Path.Combine(deskTopPath, "The Arts", "Music")) 

' Combine directory name and the name of the file we want to find. 
Dim filePath = Path.Combine(musicPath, artistName + ".TXT") 

最後,你可以檢查文件是否通過調用File.Exists method存在。

Dim found = File.Exists(filePath)  
+0

非常感謝您的幫助,Alex。你的建議對我有用。另外,請問如果沒有太多要問,你會碰巧知道如何以編程方式讀取程序讀取的子文件夾的名稱,並在窗體上的文本框中顯示該名稱?再次感謝。 – Iki

+0

你需要更多地使用谷歌,這樣你才能爲自己找出這些東西。就像搜索「文件信息vb.net」或「文件夾信息vb.net」一樣。 – Alex

+0

感謝您的早期幫助。在問我的第一個和第二個問題之前,我曾去過谷歌,但並沒有真正找到我想要的東西。這就是爲什麼我繼續在這個論壇上提出這個問題的原因。但是,謝謝。我已經能夠找出解決我問你的第二個問題的方法。乾杯。 – Iki

相關問題