在VB中，怎样在创建文件名时加入系统时间

如题所述

第1个回答 2011-10-31

Private Sub Command1_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\" & Format(Date, "yyyy.mm.dd") & " " & Format(Time, "hh.mm.ss") & ".txt", True)
a.WriteLine ("This is a test.")
a.WriteLine ("这是一个测试用例。")
a.Close
Shell "notepad.exe " & "c:\" & Format(Date, "yyyy.mm.dd") & " " & Format(Time, "hh.mm.ss") & ".txt", vbNormalFocus
End Sub本回答被提问者采纳

第2个回答 2011-10-31

先调用Time函数，得到当前时间。再用Str函数，把时间转成字符串，然后把这个字符串作为文件名就行了。

第3个回答推荐于2017-10-08

Visual Basic code

Conn.Execute "select 日期 as 日期, 时间 as 时间, 浓度 as 浓度 into [Excel 8.0;database=" & App.Path & "\Data" & Format$(Now, "yyyy-mm-dd HHNNSS") & ".xls].sheet1 from nongdubiao"本回答被网友采纳

第4个回答 2011-11-01

Dim 文件名 As String
文件名 = Format(Now, "YYYY-MM-DD_HHNNSS") & ".txt"
MsgBox 文件名

相似回答

VB中新建一个以时间为命名的txt,文档,用的是VB6.0.万分感谢。_百度知 ...答：Dim a As String a = Format(Time, "11年07月30日") '把当前系统时间(年月日)赋给a，a = a & Format(Time, "上午11点07分30秒")Open App.Path & "\" & a & ".txt" For Output As #1 '打开文本文件 Close #1

vb里如何用系统时间来命名要建立的excel文件。答：filename=date & "-" & hour(time) & "-" & minute(time)

VB如何读取系统时间和编写变量的新建文件夹答：系统时间可以用Month(Date),Year(Date),Date表示 Date是指当前时间，即系统任务栏所示的时间 Month（Date）是指当前时间下的月份 Year（Date）是指当前时间下的年份至于你说的给name赋值。可以直接写成：name=Month(Date)或者name=Yeat(Date)不过你的变量最好写成Folder_Month和Folder_Year 我建议建立...

如何用VB创建一个文件名为当前电脑时间的TXT文件答：时间里有：，如09：12：33，这在文件起名时是不允许的。如果想做，建议把分隔符改成其他。这时你可以用hour(time())取时，分、秒类似取也可以放在文本框里用，程序如下，其中 fn 是个文本框 Private Sub Command1_Click()A = Time()fn = A & ".txt"For i = 0 To Len(fn) - 1 fn...

如何在WORD文件名后面自动添加时间?答：WORD文件名后面自动添加时间方法如下：（1）ALT+F11，复制以下宏：Sub Macro1()Dim myfilename As String myfilename = Format(Date, "yyyy/m/d ", vbSunday, vbUseSystem)myfilename = myfilename + ".doc"ChangeFileOpenDirectory "C:\"ActiveDocument.SaveAs filename:=myfilename, File...

如何在WORD文件名后面自动添加时间?答：1、首先需要确保Word的宏安全性设置至少为“中”（工具-宏-安全性-中）。2、在Word里面新建一个空白文档，给它随便取个名字（比如“我的日志”）保存一下——这个文档就是你以后日志文档的开端了！（注意，如果你用的是Word 2007的话，需要保存为启用宏的文档*.docm）3、键入ALT+F11打开VBA编辑窗口...

word保存时,如何在文件名上自动添加保存的日期、时间答：ALT+F11 复制以下宏 Sub Macro1()Dim myfilename As String myfilename = Format(Date, "yyyy/m/d ", vbSunday, vbUseSystem)myfilename = myfilename + ".doc"ChangeFileOpenDirectory "C:\"ActiveDocument.SaveAs filename:=myfilename, FileFormat:=wdFormatDocument, _LockComments:=False...

vb 中现存文件的生成时间取得方法答：hFile Long，系统文件句柄 lpCreationTime FILETIME，文件的创建时间 lpLastAccessTime FILETIME，文件上一次访问的时间 lpLastWriteTime FILETIME，文件最近一次修改的时间 GetFileTime VB声明 Declare Function GetFileTime Lib "kernel32" Alias "GetFileTime" (ByVal hFile As Long, lpCreationTime As...

用VB怎么写程序,在excel中的一个单元格内,点击按钮显示当前电脑时间...答：FileName = "e:\data.xls" 'excel工作簿路径及名称 SheetName = "sheet1" '工作表名称 Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件 xlApp.Visible = True '设置EXCEL对象可见（或不可见）Set ...

大家正在搜

文件名前加文件夹名批量在文件名后加相同的文字文件名序号怎样排列 input上传文件获取文件名怎么给多个文件名加字如何将文件名加上序号文件名怎么排序文件名前加序号批量文件名前面加序号