1. 怎么使用vb查看文件的创建时间，修改时间，文件大小等信息呢
'需引用MicrosoftScriptingRuntimeDimObjFileAsFileSetObjFile=ObjFileSystem.GetFile("d:/19.txt")'文件名Debug.PrintObjFile.DateCreated'文件创建时间Debug.PrintObjFile.DateLastAccessed'文件访问时间Debug.PrintObjFile.DateLastModified'文件修改时间FileSizes=ObjFile.Size‘文件大小字节为单位
2. VB或EXCEL如何提取文件夹中每个文件的创建日期和修改日期；有没有方法能够提取目标文件夹下面的子文件夹名
Sub xxx()On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder("c:\")' "c:\"换成你的路径 Set fc = f.Files tmp = "文件名" & vbTab & "创建时间" & vbTab & "修改时间" & vbTab & "访问时间" & vbTab & "文件类型" & vbTab & "文件类型" & vbLf For Each file In fc tmp = tmp & file.Name & vbTab & file.DateCreated & vbTab & file.DateLastModified & vbTab & file.DateLastAccessed & vbTab & file.Size / 1024 & "KB" & vbTab & file.Type & vbLf Next Set fc = f.Subfolders For Each file In fc tmp = tmp & file.Name & vbTab & file.DateCreated & vbTab & file.DateLastModified & vbTab & file.DateLastAccessed & vbTab & file.Size / 1024 & "KB" & vbTab & file.Type & vbLf NextMsgBox tmpEnd Sub
3. vb 中现存文件的生成时间取得方法
SetFileTime VB声明 Declare Function SetFileTime Lib "kernel32" Alias "SetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long 说明 设置文件的创建、访问及上次修改时间 返回值 Long，非零表示成功，零表示失败。会设置GetLastError 参数表 参数 类型及说明 hFile Long，系统文件句柄 lpCreationTime FILETIME，文件的创建时间 lpLastAccessTime FILETIME，文件上一次访问的时间 lpLastWriteTime FILETIME，文件最近一次修改的时间 GetFileTime VB声明 Declare Function GetFileTime Lib "kernel32" Alias "GetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long 说明 取得指定文件的时间信息 返回值 Long，非零表示成功，零表示失败。会设置GetLastError 参数表 参数 类型及说明 hFile Long，文件的句柄 lpCreationTime FILETIME，用于装载文件的创建时间 lpLastAccessTime FILETIME，用于装载文件上一次访问的时间（FAT文件系统不支持 这一特性） lpLastWriteTime FILETIME，用于装载文件上一次修改的时间 注解 如果不需要特定的信息，那么lpCreationTime，lpLastAccessTime，lpLastWriteTime 都可以设置为零（用ByVal As Long）。这个函数返回的文件时间采用UTC格式
4. vb如何建立系统日期文件夹
PrivateSubCommand1_Click()DT=Format(Date,"yyyymmdd")IfDir("E:"&DT,vbDirectory)=""ThenMkDir"E:"&DTEndSub
不能把命名变量放在双引号里面 不然会直接把变量名当成文件名
5. vb如何获取指定目录下的文件夹创建时间，是文件夹不是文件
Private Sub Command1_Click()'本程序具有删除功能，不可恢复，慎重'本程序只保留一个最后的子文件夹。'On Error Resume NextDim fso, sPath As StringDim myFolder, curFolderDim strPath As String, dteCreate As DateConst MY_COMPUTER = &H11&Const WINDOW_HANDLE = 0Const OPTIONS = 0Set objShell = CreateObject("Shell.Application")Set objFolder = objShell.Namespace(MY_COMPUTER)Set objFolderItem = objFolder.SelfstrPath = objFolderItem.PathSet objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "选择你要搜索的文件夹:", OPTIONS, strPath)If objFolder Is Nothing ThenMsgBox "您没有选择任何有效目录!"Exit SubElseSet objFolderItem = objFolder.SelfsPath = objFolderItem.PathSet fso = CreateObject("scripting.filesystemobject")Set curFolders = fso.GetFolder(sPath)dteCreate = "1900-1-1"'如果需要只删除最早文件夹,这里改为dteCreate =nowIf curFolders.subfolders.Count > 1 ThenFor Each myFolder In curFolders.subfoldersDebug.Print sPath & IIf(Len(sPath) = 3, "", "\") & myFolder.Name, myFolder.DateCreatedIf dteCreate < myFolder.DateCreated Then'如果需要只删除最早文件夹,这里改为>号strPath = sPath & IIf(Len(sPath) = 3, "", "\") & myFolder.NamedteCreate = myFolder.DateCreatedEnd IfNextMsgBox strPath & "创建最晚，创建时间" & dteCreate & vbCrLf & "下面删除较早的文件夹"For Each myFolder In curFolders.subfoldersIf dteCreate <> myFolder.DateCreated And strPath <> sPath & IIf(Len(sPath) = 3, "", "\") & myFolder.Name Then'如果需要只删除最早文件夹,这里把<>改为='myFolder.Delete True'本行具有删除功能，不可恢复，慎重End IfNextEnd IfSet fso = NothingEnd IfEnd Sub
6. VB怎么获取文件创建时间“`
Set fs = CreateObject("Scripting.FileSystemObject") '创建FileSystemObject 对象Set f = fs.GetFile("C:\123.exe ") '返回指定路径文件所对应的 File 对象'File 对象的 DateCreated 属性返版回该文件夹的创建日期权和时间'File 对象的 DateLastModified 属性返回最后一次修改该文件的日期和时间'File 对象的 DateLastAccessed 属性返回最后一次访问该文件的日期和时间MsgBox "创建时间：" & f.DateCreated & vbCrLf & "修改时间：" & f.DateLastModified & vbCrLf & "访问时间：" & f.DateLastAccessed, vbInformation, f.Name & "属性"
7. 如何使用vb查看文件创建时间、修改时间、访问时间等信息
Dim ObjFileSystem As New FileSystemObject '需引用MicrosoftScripting RuntimeDim ObjFile As FileSet ObjFile = ObjFileSystem.GetFile("d:/19.txt")'文件名Debug.Print ObjFile.DateCreated '文件创建时间Debug.Print ObjFile.DateLastAccessed '文件访问时间Debug.Print ObjFile.DateLastModified '文件修改时间FileSizes = ObjFile.Size ‘文件大小 字节为单位
8. 用vb怎么获得一个文件的创建时间
获得一个文件的最后一次修改时间Private Sub Command1_Click() Dim iFile As String Dim FileTime iFile = "k:\计算机.xls" FileTime = Format(FileDateTime(iFile), "YYYY-MM-DD") Print FileTimeEnd SubPrivate Sub Command2_Click()获得一个文件的创建时间 Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile("k:\计算机.xls") s = "Created: " & f.DateCreated Print sEnd Sub
9. VB如何自动创建以日期命名的文件夹，并在文件夹中创建以时间命名的文档
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
