Re: [VB6 ]存取Binary檔相關問題!?

[fumizuki (矇面加菲獅)]

亂數附加至檔案的範例

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