要如何在主程式執行前,在主程式的所在位置建立一個空的資料夾.

Question

我用VB6做了一個執行檔 , 放在桌面但是 , 我想要在執行程式時同時 , 產生一個空的資料夾 , 要如何做呢?
如果哪一天我把執行檔 移到 C:\ 底下 , 我也要能夠在執行程式時同時 , 產生一個空的資料夾 , 又要如何做呢?
請各位前輩幫忙

Answer 1

Private Sub Form_Load()
Dim Dr As String

'設定資料夾路徑
Dr = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "資料夾名稱\"
'若路徑上無此資料夾則建立
If Dir(Dr, vbDirectory) = "" Then MkDir Dr

End Sub