推 fumizuki:把vbDirectory拿掉 01/26 22:40
→ fumizuki:MkDir換成建立檔案的程式碼 01/26 22:42
※ 引述《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