echo "创建时间:"date("Y-m-d H:i:s",$ctime);
2获取文件修改时间示例:
$mtime=filemtime("chinawinxptxt");echo "修改时间:"date("Y-m-d H:i:s",$mtime);
File file = new File("文件路径");
long time = filelastModified(); //返回此抽象路径名表示的文件最后一次被修改的时间。
Date date = new Date(time); //转换成Date类型, 接下来自己 *** 作
本人之前写的帖子的一个实例
一看就知道,如下:
Sub 按钮1_Click()
ApplicationScreenUpdating = False
Set fso = CreateObject("ScriptingFileSystemObject")
strfile = ApplicationInputBox("请输入文件的完整名称:", "请输入文件的完整名称:", , , , , , 2)
Set objfile = fsoGetFile(strfile)
If fsofileexists(strfile) Then
sReturn = "文件属性: " & objfileAttributes & vbCrLf
sReturn = sReturn & "文件创建日期: " & objfileDateCreated & vbCrLf
sReturn = sReturn & "文件修改日期: " & objfileDateLastModified & vbCrLf
sReturn = sReturn & "文件大小 " & FormatNumber(objfileSize / 1024, -1)
sReturn = sReturn & "Kb" & vbCrLf
sReturn = sReturn & "文件类型: " & objfileType & vbCrLf
MsgBox sReturn
Else
MsgBox strfile & " :不存在"
End If
ApplicationScreenUpdating = True
End Sub
给你看段纯C+SDK代码吧,是创建时间 你把代码看明白 自己稍微改下就是修改时间了
先去吧这个结构体类型整明白WIN32_FILE_ATTRIBUTE_DATA
把GetFileAttributesEx这个API弄明白
case WM_COMMAND:if(lParam == (LPARAM)hBtn)
{
GetWindowText(hEdit, buf, 1000);
if(!strlen(buf))
{
MessageBox(hwnd, TEXT("文本框为空!"), TEXT("错误"), MB_OK);
}
else
{
WIN32_FILE_ATTRIBUTE_DATA file_attr;
FILETIME LocalFileTime;
SYSTEMTIME SysTime;
GetFileAttributesEx(buf, GetFileExInfoStandard, (LPVOID)(&file_attr));
FileTimeToLocalFileTime(&file_attrftCreationTime, &LocalFileTime);//时间转换msdn上拿来主义copy来的
FileTimeToSystemTime(&LocalFileTime, &SysTime);
sprintf(buf, "Time Generated: %02d-%02d-%02d %02d:%02d:%02d\n",
SysTimewYear, SysTimewMonth, SysTimewDay,
SysTimewHour, SysTimewMinute, SysTimewSecond);
MessageBox(hwnd, buf, TEXT("文件创建时间为"), MB_OK);
}
}
return 0;
Sub 获取文件修改时间()
Dim Ipath, Ifile As String, Arr(), N As Integer
Ipath = "d:\pic\"
Ifile = Dir(Ipath, vbNormal)
If Ifile <> "" Then
Do
N = N + 1
ReDim Preserve Arr(1 To 2, 1 To N)
Arr(1, N) = Ipath & Ifile
Arr(2, N) = FileDateTime(Ipath & Ifile)
Ifile = Dir
Loop While Ifile <> ""
Range("A1")Resize(N, 2) = WorksheetFunctionTranspose(Arr)
End If
End Sub
Sub GetFileTime()
Dim i As Integer
i = 1
Set fso = CreateObject("ScriptingFileSystemObject")
Set fs = fsogetfolder("d:\")Files
With Sheet1
Cells(1, 1) = "序号": Cells(1, 2) = "创建时间": Cells(1, 3) = "最后修改时间": Cells(1, 4) = "最后访问时间"
For Each f In fs
i = i + 1
Cells(i, 1) = fName: Cells(i, 2) = fdatecreated: Cells(i, 3) = fDateLastModified: Cells(i, 4) = fDateLastAccessed
Next
End With
End Sub
以上即是VBA代码,运行后自动将D盘根目录下的文件名称和相关时间属性填写在Sheet1中,见下图效果:
以上就是关于怎么通过PHP获取文件创建与修改时间全部的内容,包括:怎么通过PHP获取文件创建与修改时间、Java如何获取文件的最后修改日期、如何利用vba代码提取文件修改日期等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)