Peut-etre strictement soustirer les proprietes d'un fichier est suffisant?
Note ce qui suit requiert Windows Scripting 5.6

lcComputer = "."
loWMIService = Getobject("winmgmts:" ;
	+ "{impersonationLevel=impersonate}!\\" + lcComputer + "\root\cimv2")
colFiles = loWMIService.ExecQuery ;
	("Select * from CIM_Datafile Where name = 'c:\\Scripts\\software.txt'")
For Each loFile In colFiles
	?"Access mask: " + Transform(loFile.AccessMask)
	?"Archive: " + Transform(loFile.Archive)
	?"Compressed: " + Transform(loFile.Compressed)
	?"Compression method: " + Transform(loFile.CompressionMethod)
	?"Creation date: " + Transform(loFile.CreationDate)
	?"Computer system name: " + Transform(loFile.CSName)
	?"Drive: " + Transform(loFile.Drive)
	?"8.3 file name: " + Transform(loFile.EightDotThreeFileName)
	?"Encrypted: " + Transform(loFile.Encrypted)
	?"Encryption method: " + Transform(loFile.EncryptionMethod)
	?"Extension: " + Transform(loFile.Extension)
	?"File name: " + Transform(loFile.FileName)
	?"File size: " + Transform(loFile.FileSize)
	?"File type: " + Transform(loFile.FileType)
	?"File system name: " + Transform(loFile.FSName)
	?"Hidden: " + Transform(loFile.Hidden)
	?"Last accessed: " + Transform(loFile.LastAccessed)
	?"Last modified: " + Transform(loFile.LastModified)
	?"Manufacturer: " + Transform(loFile.Manufacturer)
	?"Name: " + Transform(loFile.Name)
	?"Path: " + Transform(loFile.Path)
	?"Readable: " + Transform(loFile.Readable)
	?"System: " + Transform(loFile.System)
	?"Version: " + Transform(loFile.Version)
	?"Writeable: " + Transform(loFile.Writeable)
Next

bonjour j'aimerais savoir comment faire pour ouvrir le dialogue windows de propriété d'un fichier à partir de foxpro (je pense en utilisant une api) mais je ne sais pas le faire
>
>merci de me répondre à florent@netplus.ch