Private Sub Load_Photo(F As Field)
Dim Tmp As String
Dim bit() As ByteIf VarType(F) <> vbNull Then
Tmp = "C:\a.wav"
bit = F.GetChunk(F.ActualSize)
Open Tmp For Binary As #1
Put 1, 1, bit
Close 1
End IfEnd Sub
Dim Tmp As String
Dim bit() As ByteIf VarType(F) <> vbNull Then
Tmp = "C:\a.wav"
bit = F.GetChunk(F.ActualSize)
Open Tmp For Binary As #1
Put 1, 1, bit
Close 1
End IfEnd Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货