什么样的API函数可以写二进制文件

Question

读写二进制文件不用API，PUT/GET/SEEK这三个语句就够了，和CommonDialog无关，保存文件时CommonDialog只是取得文件名而已。

Answer 1

是啊，CommonDialog 只是返回文件路径而已，对文件的读写操作还是要自己写的，你完全可以自己设计界面。

Answer 2

我有写文件的命令，假设是A。然后我想写一个文件格式为“A FILENAME”，我的问题是如何先生成一个空文件FILENAME，并设置好该文件的路径和扩展名。谢谢解答。

Answer 3

如何 Seek 到某一条纪录，然后删除啊

Answer 4

说得有道理junwhj(junwhj.myrice.com), 读写二进制文件不用API,只要用PUT/GET/SEEK这三个语句就够了,但最好还要用一此Byte型的数组,这样可以准确的存取所需的数据的字节数。CommonDialog只是用以取得存取文件的文件名而已,别无它用。

Answer 5

一個過程.....
Private Sub WriteFile(ByVal infile As String, outfile As String)
    Dim FnumIn As Long, FnumOut As Long, myByte As Byte
    FnumIn = FreeFile()
    Open infile For Binary As #FnumIn
    FnumOut = FreeFile()
    Open outfile For Binary As #FnumOut
    While Not EOF(FnumIn)
        Get #FnumIn, , myByte
        Put #FnumOut, , myByte
    Wend
    Close (FnumOut)
    Close (FnumIn)
End Sub

Answer 6

请chinayang给出代码的注解，谢谢

Answer 7

不会不知道open语句吧？
open 文件名 for 打开模式 as #文件号
1.Binary 为二进制方式打开文件!
文件号是识标符
2。用Get#文件号,位置，变量(常为一个数组)读文件并保存在指定的变量中
3。用Put#文件号，位置，变量(常为数组)将变量以二进制方式写文件
如：
private sub command1_click()
dim aa()as byte  '定义aa为字节数组
open "C:\a.exe" for binary as #1
redim aa(lof(1)-1)  ‘将aa的大小定义为和文件的大小一样
Get#1,,aa        ’读出文件
close#1
open "D:\b.exe"for binary as #2
Put#1,,aa         ‘写入文件
close#2