Question

我的问题是我试图从数据库中获取所有文件名，但这只有在我专门编写文件名时才有效，例如，在我的数据库中我有一个名为＆＃34的列;文件＆＃34;并且它只是没有任何扩展名的文件名，所以我调用变量＆＃34; file_name＆＃34;并添加扩展名但似乎无法正常工作......

这是表格：

   Id   |      Court     |    File   |      Email    
--------+----------------+-----------+-----------------  
   1    | COURT NUMBER 1 | DocumentA | John@email.com 
   2    | COURT NUMBER 1 | DocumentB | Judy@email.com   
   3    | COURT NUMBER 1 | DocumentC | Edgar@email.com   
   4    | COURT NUMBER 1 | DocumentD | Brit@email.com

以下是代码：

If (Court.ToUpper.Trim = "COURT NUMER 1") Then
    Dim di As DirectoryInfo = New DirectoryInfo("\\192.168.1.70\SisInt\Court\Agreements\J102016SEM" & semester)

    For Each fi In di.GetFiles(file_name.Trim + "docx")
        If fi.Extension.ToUpper = ".DOC" Or fi.Extension.ToUpper = ".DOCX" Then
            FileList.Add(fi.FullName)
            NameList.Add((fi.Name.Substring(0, fi.Name.Length - fi.Extension.Length)))
        End If
    Next
End If

但这只有在我使用扩展名准确写出一个文件的名称时才有效（如果我放了多个文件名，则不起作用）

For Each fi In di.GetFiles("DocumentA.docx")

那么，任何想法如何立即调用datebase中的所有文件名？

Answer 1

将搜索模式更改为：

di.GetFiles(file_name.Trim + ".doc*")

您可以更轻松地获取没有扩展名的文件名：

NameList.Add(Path.GetFileNameWithoutExtension(fi.Name))

从数据库VB.net

1 个答案: