Re: [VB6 ]存取Binary檔相關問題!?
亂數附加至檔案的範例
Public Sub Test()
Dim b(0) As Byte
Randomize Timer
b(0) = Int(Rnd * (90 - 65) + 65)
Open "c:\temp.txt" For Binary As #1
Put #1, LOF(1) + 1, b
Close
End Sub
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.194.98.78
討論串 (同標題文章)