Question

我想请问一下，在VB中希望每次保存文件的文件名是当时的时间，设成动态的，请问这个该怎么设置呢？

就是我每次读文件，希望保存的文件名中包含当天的时间（比如保存成2013072305.txt），就是说这个文件时2013年7月23日5点钟采集的，保存成动态的，这个应该怎么写代码呢？谢谢达人的帮助拉！

Answer 1

Option Explicit
Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
wYear   As Integer
wMonth   As Integer
wDayOfWeek   As Integer
wDay   As Integer
wHour   As Integer
wMinute   As Integer
wSecond   As Integer
wMilliseconds   As Integer
End Type
Dim month, day, hour As String
Dim FileName As String
Dim systime As SYSTEMTIME

Private Sub Command1_Click()
FileName = systime.wYear & month & day & hour
Open FileName & ".txt" For Output As #1
Close #1
End Sub

Private Sub Form_Load()
GetLocalTime systime
month = systime.wMonth
day = systime.wDay
hour = systime.wHour

If month < 10 Then
    month = "0" & month
End If
If day < 10 Then
    day = "0" & day
End If
If hour < 10 Then
    hour = "0" & hour
End If
End Sub

Answer 2

Private Sub Command1_Click()
Open format(now(),"YYYYmmDDHHMM") & ".TXT" For Output As #1
'要写入的内容
Close #1
End Sub

  很容易啊...

Answer 3

pricate sub Command1_click()
dim d 
d=now(YYYYmmDDHH)
Open app.path & "\" & d & ".txt" for output as #1
'内容
close #1
end sub

Answer 4

一 把Now() 函数 提取出数字
Dim I As Integer
Dim CC, MR, Getstring as string
CC = ""
MR=now()
For I = 1 To Len(MR)
If Val(Mid(MR, I, 1)) > 0 or mid(MR,i,1)=0 Then
CC = CC & Mid(MR, I, 1)
End If
Next I
Getstring=Left(cc,len(cc)-2)

二。 保存
Save as Getstring