Question

我正在构建一个打开来自不同文件夹的各种文件的应用程序。我需要打开一个应用程序，随后打开一个名称开头有“1”的Powerpoint演示文稿。我该怎么做？我编写了以下代码，但只有在我输入确切名称时它才有效：

If (System.IO.File.Exists("FilePath\1*")) Then
  'Lists File Names from folder & when selected, opens selected file in default program
    Dim file3dopen As New ProcessStartInfo()
    With file3dopen
        .FileName = "TheFilepath\1*"
        .UseShellExecute = True
    End With
    Process.Start(file3dopen)
Else
    MsgBox("No Such File Exists")
End If

Answer 1

您需要使用Directory.GetFiles(string path, string pattern)查找该目录中的所有文件。

    Dim files As String() = Directory.GetFiles("\FilePath", "1*")

    If files.Length > 0 Then '  file found
        Dim file3dopen As New ProcessStartInfo()
        With file3dopen
            .FileName = files(0)
            .UseShellExecute = True
        End With
        Process.Start(file3dopen)
    Else
        'file not found
        MsgBox("No Such File Exists")
    End If

当我只有部分名称时如何选择文件？

1 个答案: