按文件名顺序打印文件

Question

我想按文件名升序的顺序打印文件目录（对我来说没有发生 - 似乎是文件创建顺序中的默认值）。

代码：

Dim PrintPDF As New ProcessStartInfo
For Each fileName1 In Directory.GetFiles(strALPRMailOutReports, "*.pdf", SearchOption.AllDirectories)
    PrintPDF.UseShellExecute = True
    PrintPDF.Verb = "print"
    PrintPDF.WindowStyle = ProcessWindowStyle.Hidden
    fileNameOnly = Path.GetFileName(fileName1)
    PrintPDF.FileName = strALPRMailOutReports & "\" & fileNameOnly
    Process.Start(PrintPDF)
Next

Answer 1

一个简单的排序就可以了。

 Dim files() As String = IO.Directory.GetFiles("Path here")
 Array.Sort(files)
 For Each fileName1 In files
     'Print fileName1
 Next