Question

若窗体Form1上添加了通用对话框CommonDialog1，下面程序的功能是什么？

Dim filename As String
Dim char As Byte
CommonDialog1.Filter = "文本文件(*.DAT)|*.dat"
CommonDialog1.Action = 1
filename = CommonDialog1.filename
Open filename
For Binary As #1
Open "d:\test.dat"
For Binary As #2
Do While Not EOF(1)
Get #1, , char
Put #2, , char
Loop
Close
Kill filename

Answer 1

Dim filename As String //定义字符型变量 filename
Dim char As Byte //定义字节型变量 char
CommonDialog1.Filter = "文本文件(*.DAT)|*.dat" //设置通用对话框1的过滤器为 文本文件 *.dat
CommonDialog1.Action = 1 //通用对话框类型为1,打开文件
filename = CommonDialog1.filename //打开通用对话框并把选择的文件名存至 filename变量
Open filename
For Binary As #1 //以二进制方式打开 filename(对话框中选择的文件) 文件号 1
Open "d:\test.dat"
For Binary As #2 //以二进制方式打开d:\test.dat 文件号 2
Do While Not EOF(1) 当读写位置不在1#文件尾时执行循环
Get #1, , char //从1#文件中读取一个字节至 变量char
Put #2, , char //把 变量 char值写入2#文件
Loop //循环尾
Close //关闭文件
Kill filename //清除变量 ?

以上代码是打开一个打开文件对话框，把其内容写入d:\test.dat 文件中

Answer 2

对VB不是很了解，看上去应该是读取对话框中的dat文件，将其中的内容写入到d:\test.dat下

Answer 3

将通用对话框中打开的文件内容复制到d:\test.dat文件中后，将通用对话框中打开的文件删除。