VB6语句改成C#该怎么写

Question

Dim dFile() As Byte
dFile = iRs.Fields("FData").Value‘二进制数据库字段
Dim smFile As ADODB.Stream
Set smFile = New ADODB.Stream
smFile.Type = adTypeBinary
smFile.Open
smFile.Write dFile
smFile.SaveToFile App.Path & "\Tb.dat", adSaveCreateOverWrite
Dim ozip As Object
Set ozip = CreateObject("KDZIP.ZIP")
If Dir(App.Path & "\Temp", vbDirectory) = "" Then '文件夹不存在
MkDir App.Path & "\Temp" '在应用程序根目下，创建文件夹Backup
End If
ozip.DeCompress App.Path & "\Tb.dat", App.Path & "\Temp\ItemImg.bmp"
Shell "rundll32 url.dll,FileProtocolHandler """ & App.Path & "\Temp\ItemImg.bmp" & """", vbNormalFocus
smFile.Flush
smFile.Close
Set ozip = Nothing

Answer 1

有语言转换器软件，可以试试。例如VB TO VB.NET , VB.NET TO C#、