使用 CodeDom 编译时处理错误
Handling Error While Compiling Using CodeDom
因此,在使用 CodeDom 编译代码时解决我的问题后,我遇到了另一个与代码相关的问题。这很令人困惑,因为当我 运行 它时代码工作得很好 - 只有当我尝试编译它时才会发生。
我的代码是这样做的:
对于目录 C:\temp\ 中的每个文件 - 如果文件名包含“123”,它会将其添加到字符串列表中。
Dim file_list As New List(Of String)
Dim temp_directory As New IO.DirectoryInfo("C:\temp\")
Dim get_file_info As IO.FileInfo() = temp_directory.GetFiles()
Dim item As IO.FileInfo
For Each item In get_ssfn_files
If item.ToString.Contains("123") Then
file_list.Add(item.ToString)
End If
Next
然后,它将对每个语句中的每个文件执行一些操作。
For Each file_found in file_list
'Do Something
Next
错误似乎发生在这一行:
For Each file_found in file_list
我不知道为什么,因为正如我所说,当我不使用 CodeDom 编译代码时,代码工作正常。有人知道如何解决这个问题吗?提前致谢。
如果使用 Option Infer Off
编译代码,您需要为 file_found
指定类型。
For Each file_found As String In file_list
'Do Something
Next
因此,在使用 CodeDom 编译代码时解决我的问题后,我遇到了另一个与代码相关的问题。这很令人困惑,因为当我 运行 它时代码工作得很好 - 只有当我尝试编译它时才会发生。 我的代码是这样做的: 对于目录 C:\temp\ 中的每个文件 - 如果文件名包含“123”,它会将其添加到字符串列表中。
Dim file_list As New List(Of String)
Dim temp_directory As New IO.DirectoryInfo("C:\temp\")
Dim get_file_info As IO.FileInfo() = temp_directory.GetFiles()
Dim item As IO.FileInfo
For Each item In get_ssfn_files
If item.ToString.Contains("123") Then
file_list.Add(item.ToString)
End If
Next
然后,它将对每个语句中的每个文件执行一些操作。
For Each file_found in file_list
'Do Something
Next
错误似乎发生在这一行:
For Each file_found in file_list
我不知道为什么,因为正如我所说,当我不使用 CodeDom 编译代码时,代码工作正常。有人知道如何解决这个问题吗?提前致谢。
如果使用 Option Infer Off
编译代码,您需要为 file_found
指定类型。
For Each file_found As String In file_list
'Do Something
Next