我有一个名为“ The Arts”的文件夹,其中包含多个子文件夹,其中一个名为“ Music”。此“音乐”子文件夹包含以下格式的各种文本文件:
约翰·杜
约翰·列侬
艾尔顿·约翰
现在,在我的表单上,我有两个文本框,用户可以在其中输入艺术家的姓名,如下所示:
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
如何检查文本文件名称是否与文本框1和2串联的艺术家名称完全匹配
您需要首先将文本框中的文本连接起来,在给定的示例中,需要用空格分隔。有几种方法可以做到这一点。
例如像这样:
Dim artistName = TextBox1.Text + " " + TextBox2.Text
或者这个:
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
方法检查该文件是否存在。
Dim found = File.Exists(filePath)
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句