我想把一堆rtf文件和word文档读到数据列备注字段中,只能读出乱码?帮助文件里的各种编码都试过,还是不行,请教请教!
For Each wj As Row In Tables("文件").Rows
If wj("发文字号")<>Nothing Then
For Each File As String In FileSys.GetFiles("i:\vb\文件\")
If file.contains(wj("发文字号"))=True Then
output.show(wj("发文字号") & " " & file)
Dim s As String = FileSys.ReadAllText(file)
wj("文件内容")=s
End If
Next
End If
Next