关于创建子目录的小问题，谢谢。

Question

我做的程序功能上，每天写日志到一个文本文件。所以我想要把这些文本文件放到一个叫log的子目录下，我不知道应该怎么办：
1.如果用程序怎么写？
2.如果不程序，是不是在打包时设置，那么我的程序时写文件那几行是不是要变动一下？谢谢各位高手给点提示？
（10分，大侠们不会嫌贫爱富吧，谢谢）

Answer 1

用这个函数可以创建目录(不用一个一个创建子目录,一气呵成!!!)
Private Declare Function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long
Private Sub Form_Load()
    SHCreateDirectoryEx Me.hwnd, "c:\test\dir\hello\something\apiguide\", ByVal 0&
End Sub如果是你的程序目录下:SHCreateDirectoryEx Me.hwnd, app.path & "\Log\", ByVal 0&这样就建立了一个Log文件夹

Answer 2

写文本文件用
Open App.path & "\Log\Log1.txt" For Append As #1
 Print "记录", 1
Close #1
App.path就是程序跟目录,不用怕你的程序到其他地方,安装也没有问题