'确认你的D:\hepintu\zhuanhuan\000.grd 是否有这两个文件夹
Dim r$
Private Sub Command1_Click()
r = "shjsghdfsgfsh1234哈哈fsh"
Open "D:\hepintu\zhuanhuan\000.grd" For Binary Access Write As #2
Put #2, LOF(2) + 1, r 'Put #2,1, r 从头开始写入
Close #2
End Sub
'********************************************************
【CBM666 的 MP3 合并(二)---二进制读写方式】
http://hi.baidu.com/cbm666/blog/item/155ee9501b8fca581138c2e6.html
Dim r$
Private Sub Command1_Click()
r = "shjsghdfsgfsh1234哈哈fsh"
Open "D:\hepintu\zhuanhuan\000.grd" For Binary Access Write As #2
Put #2, LOF(2) + 1, r 'Put #2,1, r 从头开始写入
Close #2
End Sub
'********************************************************
【CBM666 的 MP3 合并(二)---二进制读写方式】
http://hi.baidu.com/cbm666/blog/item/155ee9501b8fca581138c2e6.html
![](http://cbm666.com/v.gif)