Question

C#转为Vb.net，在线转换网址我知道，我需要懂得人回答。

private FileInfo[] GetFileInfoList(string Path)
{
// 从指定的文件夹内获取文件一览
DirectoryInfo di = new DirectoryInfo(Path);
FileInfo[] fiArray = di.GetFiles();
Array.Sort(fiArray, delegate(FileInfo fi1, FileInfo fi2)
{
// 文件名升序
return fi1.Name.CompareTo(fi2.Name);
});
return fiArray;
}
以上是方法，我主要是
Array.Sort(fiArray, delegate(FileInfo fi1, FileInfo fi2)
{
// 文件名升序
return fi1.Name.CompareTo(fi2.Name);
});
不知道用vb.net怎么写

Answer 1

Array.Sort(fiarray, Function(n As FileInfo, n1 As FileInfo)
Return n.Name.CompareTo(n1.Name)
End Function)

追问

不好用啊，有错。。。。

追答

什么错？跟 你的代码是一样的。测试也没有问题。

追问

转为vb后的方法
Private Function GetFileInfoList(ByVal Path As String) As FileInfo()
End Function
把您的代码添进去会有错

追答

Private Function GetFileInfoList(Path As String) As IO.FileInfo()
Dim di As IO.DirectoryInfo = New IO.DirectoryInfo(Path)
Dim fiArray As IO.FileInfo() = di.GetFiles
Array.Sort(fiArray, Function(fi1 As IO.FileInfo, fi2 As IO.FileInfo)
Return fi1.Name.CompareTo(fi2.Name)
End Function)
Return fiArray
End Function
测试通过，你不说具体的错误。