请问怎样在编程种实现用日期作名称建立文件夹和文件

sdmyhy 2004-05-10 01:06:00

请问怎样在编程种实现用日期作名称建立文件夹和文件？

...全文

94 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

northwolves 2004-05-10

打赏
举报

Private Sub Command1_Click()
On Error Resume Next
Dim mydate As Date
MkDir "c:\" & Year(Date)
For i = 0 To 364
mydate = DateAdd("d", i, DateSerial(Year(Date), 1, 1))
MkDir "c:\" & Year(Date) & "\" & Month(mydate)
Open "c:\" & Year(Date) & "\" & Month(mydate) & "\" & Format(mydate, "yyyymmdd") & ".txt" For Binary As #1
Close #1
Next
MsgBox "ok"
End Sub

VBDN 2004-05-10

打赏
举报

Private Sub CreateFolder() '建立目录
Dim FolderName As String
FolderName = "c:\" & Date
MkDir FolderName
End Sub

Private Sub CreateFile() '建立文件
Dim FileName As String
FileName = "c:\" & Date & ".txt"
Open FileName For Output As #1
Print #1, "文件中的内容"
Close #1
End Sub

yinweihong 2004-05-10

打赏
举报

Private Sub Form_Load()
'On Error Resume Next
Dim a As String
a = Date
b = Date
Set fso = CreateObject("scripting.fileSystemobject")
fso.createfolder ("d:\" & a)
Open "d:\" & Date & ".TXT" For Output As #1
Print #1, "aDSDsdaD"
Close #1

End Sub

dongge2000 2004-05-10

打赏
举报

Dim Wekday As String

Private Sub Form_Load()
Select Case Weekday(Now) - 1
Case 1: Wekday = " 星期一 "
Case 2: Wekday = " 星期二 "
Case 3: Wekday = " 星期三 "
Case 4: Wekday = " 星期四 "
Case 5: Wekday = " 星期五 "
Case 6: Wekday = " 星期六 "
Case 0: Wekday = " 星期日 "
End Select
End Sub

dongge2000 2004-05-10