文件 右键 → 属性，可以看到文件的 创建时间、修改时间、访问时间，再高级标签中，还有更多信息，比如作者，最后编辑的作者等

VFP怎么修改这些信息吗

应该可以获得这些参数的，需要试一试。

取出来很容易，修改就复杂了

ff = GetFile()
Create Cursor ttt (f1 I, f2 V(200))
sh = CreateObject('Shell.Application')
od = sh.NameSpace(JustPath(ff))
of = od.items.item(JustFname(ff))
For ii = -1 to 500
    Insert into ttt Values (ii, od.GetDetailsOf(of,ii) )
EndFor
Locate
Browse

[此贴子已经被作者于2025-4-10 19:41编辑过]

时间MyFll好改，实际调用的windowsApi:
函数名：SetFileTime（cFileName,tDateTime[,nType]）
修改文件的修改时间、创建时间、最后访问时间
返回值：逻辑值，为真时成功。
参数：
cFileName：字符型，要修改时间的文件名
tDateTime：日期时间型，将要修改成的时间
[nType]：数值型，可选，修改的类型，默认值为２，其中：
１－创建时间
２－修改时间
３－最后访问时间

[此贴子已经被作者于2025-4-11 18:47编辑过]

谢谢各位老师
创建者、计算机 等这些信息能改吗
比如打开一个word文档，详细信息中，来源 这些信息，要是也都能改就好了

[此贴子已经被作者于2025-4-12 08:14编辑过]

不是所有属性都可以修改的。word自己就可以修改部分隐私信息，凡是详细信息中可以手工修改的属性，word对象都可以做到，但是调用COM对象非常慢

Clear
ow = NewObject('Word.Application')
od = ow.Documents.Open(GetFile('doc,docx'))
For each op in od.BuiltInDocumentProperties
    ? Padr(op.name+':', 50, '.')
    Try
        ?? op.value
    Catch
        ?? 'N/A'
    EndTry
    *-- 修改或清空某些属性: 、
    Do case
    Case InList(op.name, 'Author','????')    && 作者
        m.op.Value = 'easyppt@bccn'
        ?? '  >>> ' + m.op.Value
    Case InList(op.name, 'Manager','Company')  && 管理者、公司
        op.value = ''
        ?? '  >>> (清空)'
    Otherwise
        *-- 不修改或不能修改
    EndCase
EndFor
od.Close(.t.)   && 保存修改
ow.Quit()