Vb.net 图像转换使用每个

我正在尝试使用VB.Net将目录中的所有.png文件转换为.ico

   Dim DI As New System.IO.DirectoryInfo(PNGFolderConverter.Text)
        Dim Files As System.IO.FileInfo() = DI.GetFiles("*.png")
        For Each Fl As System.IO.FileInfo In Files
            Dim i As Integer
            i += 1

            Dim SourceImg As Image
            SourceImg = System.Drawing.Image.FromFile(Files)
            SourceImg.Save(PNGSaveDir.Text & "\" & i.ToString & ".ico", ImageFormat.Icon)

        Next

但我不能让它工作。。。我要么得到一个错误，要么只是语法错误

有人能帮我吗？

您需要使用和循环变量

Fl

而不是

文件

Dim DI As New System.IO.DirectoryInfo(PNGFolderConverter.Text)
Dim Files As System.IO.FileInfo() = DI.GetFiles("*.png")
For Each Fl As System.IO.FileInfo In Files
    Dim i As Integer
    i += 1

    Dim SourceImg As Image
    SourceImg = System.Drawing.Image.FromFile(Fl.Name)
    SourceImg.Save(PNGSaveDir.Text & "\" & i.ToString & ".ico", ImageFormat.Icon)

Next

这一点起作用了

除了“Fl.Name”之外，我还必须添加保存目录和一个“\”
 如果您发布了收到的错误消息，这会有所帮助。特别是在这段代码中，我在这一行中遇到了语法错误：SourceImg=System.Drawing.Image.FromFile（Files）此语法错误：“System.IO.FileInfo的一维数组”类型的值无法转换为stringI正在不断获取：FileNotFoundExceptionInitiation断点，并准确查看代码试图查找png文件的文件路径。明白了！我发现了问题：）我将立即发布带有解决方案的代码。
Dim DI As New System.IO.DirectoryInfo(PNGFolderConverter.Text)
        Dim Files As System.IO.FileInfo() = DI.GetFiles("*.png")
        For Each Fl As System.IO.FileInfo In Files
            Dim i As Integer
            i += 1

            Dim SourceImg As Image
            SourceImg = System.Drawing.Image.FromFile(PNGFolderConverter.Text & "\" & Fl.Name)
            SourceImg.Save(PNGSaveDir.Text & "\" & i.ToString & ".ico", ImageFormat.Icon)

        Next