作者Y78 (Y78)
看板Visual_Basic
标题Re: [VB6 ] VB6.0 如何用"TextBox"内的值当档名??ꔠ…
时间Mon Jan 26 22:53:51 2009
※ 引述《GAMMA1028 (GAMMA)》之铭言：
: ※ 引述《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
: ---
: 判断建立资料夹可行但是判断建立档案不行
: 如果前辈们方便的话 麻烦解释这段程式码给我听...
: 麻烦拨空回答.谢谢您们.
Dir(档案位置) 如果档案不存在的话 会传回空字串 ""
If Dir("C:\" & text1.text & ".dat") <> "" Then
'档案已存在
Else
'档案不存在
End If
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.116.162.36