-1

さまざまなフォルダーからあらゆる種類のファイルを開くアプリケーションを構築しています。名前の先頭に「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
4

1 に答える 1

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
于 2013-03-11T03:22:55.893 に答える