用VBS函数写一个把文件名数组按windows文件夹的排序方式进行排序的函数

你可以使用VBS（Visual Basic Script）编写一个函数来按Windows文件夹的排序方式对文件名数组进行排序。下面是一个示例函数的代码：

Function SortFileNames(arr)
    Dim i, j, temp
    
    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If StrComp(arr(i), arr(j), vbTextCompare) > 0 Then
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
            End If
        Next
    Next
    
    SortFileNames = arr
End Function

这个函数使用了冒泡排序算法，通过比较文件名的字符串来确定它们的顺序。`StrComp`函数用于比较字符串，`vbTextCompare`参数表示进行不区分大小写的文本比较。

使用这个函数时，你可以将文件名数组作为参数传递给函数，并接收返回的已排序的数组。下面是一个使用示例：

Dim fileNames(3)
fileNames(0) = "file3.txt"
fileNames(1) = "file1.txt"
fileNames(2) = "file2.txt"

fileNames = SortFileNames(fileNames)

For Each fileName In fileNames
    WScript.Echo fileName
Next

以上示例中，`fileNames`数组包含三个文件名，通过调用`SortFileNames`函数对其进行排序，然后使用循环遍历已排序的文件名数组并输出结果。

请注意，VBS是一种脚本语言，它通常用于在Windows环境下编写自动化脚本。你可以将以上代码保存为一个.vbs文件，并在Windows环境中运行该脚本来看到结果。