Question

VB如何自动创建以日期命名的文件夹，并在文件夹中创建以时间命名的文档？

Answer 1

d = Format(Now(), "yyyymmdd")
f = Format(Now(), "hhnnss")
MkDir App.Path & "\" & d '建文件夹
Open App.Path & "\" & d & "\" & f & ".txt" For OutPut As #1 '建文件
Print #1, "OK"
Close #1

Answer 2

给你一段代码 你自己执行下看下效果吧
Public Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

public function WriteLog(sDesc as string)

Dim sCurrentDate As String
sCurrentDate = Format$(Now, "yyyy-mm-dd hh:mm:ss")

Dim sDir As String, sLogFile As String
sDir = App.Path & "\..\Log\" & Format$(sCurrentDate, "yyyymm")
sLogFile = sDir & "\" & Format$(sCurrentDate, "yyyymmdd") & ".log"
If MakeSureDirectoryPathExists(sLogFile) = 0 Then Exit Function

Dim I As Long
I = FreeFile
Open sFile For Append Access Write As #I
Print #I, sCurrentDate & "`" & sDesc
Close #I

end fucntion

Answer 3

Private Sub Command1_Click()
Dim d As String, f As String
d = Format(Now(), "yyyy-mm-dd")
f = Format(Now(), "hh：nn：ss")
MkDir "D:" & "\" & d
'建文件夹
Open "D:" & "\" & d & "\" & f & ".txt" For Output As #1
'建文件
Print #1, "OK"
Close #1
End Sub