如何在C盘下生成一个名为1.dat的文件,以便用open c:\1.dat append as #1 …语句操作？

Private Sub Command1_Click()
strBat = "cmd"    ‘写入内容
   
          Open "c:\runbat.bat" For Output As #1
          Print #1, strBat
          Close #1
 
End Sub

如果C盘下没有名为runbat.bat文件，你又如何用程序代码“新建”一个这样的文件呢？

。。不用c盘下有runbat。bat
你试试看 自动生成的

O，544

不行吗