※ 引述《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