Открытие файла по маске - Visual Basic .NET

Формулировка задачи:

Приветствую форумчане!!! У меня есть файлы в определенной папке. при запуске моей программы (она написана на Visual Basic - Microsoft Visual Studio)она должна открывать файл либо за текущие сутки, либо по выбранной дате. файлы xlsx, в формате: год-месяц-день час-минута-секунда. открываю по команде Process.Start . отчет суточный поэтому каждые сутки файл создается в разные секунды (может быть 1,2 или 5-ая секунда) Так вот я не могу открыть эти файлы по маске. Прошу помочь у кого какие идеи!!! Как видно по картинкам когда я набираю Process.Start(("C:\Users\\Documents\Projects\Projects\VB_2010\From_07_01_2017\SIRG_Application\SIRG_Application" +'Test + " 11-01-0" + "5.xlsx"), "EXCEL.EXE") - в переменной test сохраняется дата, выбранная с календаря. а вот когда я делаю маску: Process.Start(("C:\Users\\Documents\Projects\Projects\VB_2010\From_07_01_2017\SIRG_Application\SIRG_Application" +'Test + " 11-01-0" + "*.xlsx"), "EXCEL.EXE"), т.е вариант звездочки не работает :confused::confused::confused: :confused: :confused: Прошу помочь у кого какие идеи, плииииииииз!!!

Код к задаче: «Открытие файла по маске - Visual Basic .NET»

textual
Public Class Form1
    Dim FPath As String
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Using FBD = New FolderBrowserDialog With {.ShowNewFolderButton = False, .Description = "Выберите папку:"}
            If Not FBD.ShowDialog = Windows.Forms.DialogResult.OK Then Exit Sub
            FPath = FBD.SelectedPath
            ListBox1.Items.Clear()
            For Each FL As String In IO.Directory.GetFiles(FBD.SelectedPath)
                If FL.ToLower.EndsWith(".xlsx") Then
                    ListBox1.Items.Add(IO.Path.GetFileNameWithoutExtension(FL))
                End If
            Next
        End Using
    End Sub
 
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        For i = 0 To ListBox1.Items.Count - 1
            Dim DT As Date = CDate(ListBox1.Items(i).split()(1))
            If DT.Date = DateTimePicker1.Value.Date Then
                ListBox1.SelectedIndex = 2
                Process.Start(FPath & "" & ListBox1.Items(i) & ".xlsx")
                Exit Sub
            End If
        Next
    End Sub
End Class

14   голосов, оценка 3.714 из 5


СОХРАНИТЬ ССЫЛКУ