把文本文件内容读取TextBox:
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)把TextBox内容写入文本文件:
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile复制文件:
Public Sub MyCopy(SFile As String, DFile As String)
Dim TempFile As Integer
Dim TempBytes() As Byte
Dim FileLen As Long
TempFile = FreeFile
Open SFile For Binary As #TempFile
FileLen = LOF(TempFile)
ReDim TempBytes(1 To FileLen)
Get #TempFile, , TempBytes
Close #TempFile
Open DFile For Binary As #TempFile
Put #TempFile, , TempBytes
Close #TempFile
End Sub
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)把TextBox内容写入文本文件:
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile复制文件:
Public Sub MyCopy(SFile As String, DFile As String)
Dim TempFile As Integer
Dim TempBytes() As Byte
Dim FileLen As Long
TempFile = FreeFile
Open SFile For Binary As #TempFile
FileLen = LOF(TempFile)
ReDim TempBytes(1 To FileLen)
Get #TempFile, , TempBytes
Close #TempFile
Open DFile For Binary As #TempFile
Put #TempFile, , TempBytes
Close #TempFile
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货