VFP可以修改文件属性信息吗
文件 右键 → 属性,可以看到文件的 创建时间、修改时间、访问时间,再高级标签中,还有更多信息,比如作者,最后编辑的作者等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编辑过]

程序代码: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()