※ 引述《GAMMA1028 (GAMMA)》之铭言： : 表单"拉"Command1_Click() <<CommandButton>> 与 Text1_Change() <<TextBox>> 各一个 : ----- : Private Sub Command1_Click() : Open "C:\123.dat" For Output As #1 : Close #1 : End Sub : ------ : ↑这样会在C:\下建立一个"123.dat"的档案 : ********************* : 问题来了 : 我想在 Text1输入一个值来取代"123"这个档名 : 也就是说 当我在Text1输入abc时就建立一个"abc.dat"这个档案 : 请问板上的前辈们.我该怎麽做呢?? : 麻烦拨空回答.谢谢您们. ---------------------------------- 各位前辈...小弟我又发现一个问题... 当第一次在Text1输入abc时会建立"abc.dat"这个档案... 第二次又输入abc时则是直接取代该档案... 有没有办法加入判断式 让第二次输入时提出警告并不要执行呢?? --- 我在网路上找到这段程式码 Dr = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "资料夹名称\" '若路径上无此资料夹则建立 If Dir(Dr, vbDirectory) = "" Then MkDir Dr End If --- 判断建立资料夹可行但是判断建立档案不行 如果前辈们方便的话 麻烦解释这段程式码给我听... 麻烦拨空回答.谢谢您们. --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 218.172.17.58