Terkadang saya membutuhkan informasi dari sebuah file, misalnya versi dari aplikasi kita, tanggal modfikasi dan lain-lain. Sepertinya ada banyak cara untuk mendapatkan properti dari sebuah file. Berikut adalah salah satu cara yang menurut saya sangat lengkap, untuk mencobanya silahkan save as ke prg atau bisa download prg nya di sini.
Clear
strComputer = "."
objWMIService = Getobject("winmgmts:{impersonationLevel=impersonate}!\\" + strComputer + "\root\cimv2")
colFiles = objWMIService.ExecQuery("Select * from CIM_Datafile Where name = 'C:\\nsisportable2\\NSISPortable.exe'")
For Each objFile In colFiles
? "Access mask: " + Str(objFile.AccessMask)
? "Archive: " + Transform(objFile.Archive)
? "Compressed: " + Transform(objFile.Compressed)
? "Compression method: " + objFile.CompressionMethod
? "Creation date: " + objFile.CreationDate
? "Computer system name: " + objFile.CSName
? "Drive: " + objFile.Drive
? "8.3 file name: " + objFile.EightDotThreeFileName
? "Encrypted: " + Transform(objFile.Encrypted)
? "Encryption method: " + objFile.EncryptionMethod
? "Extension: " + objFile.Extension
? "File name: " + objFile.FileName
? "File size: " + objFile.FileSize
? "File type: " + objFile.FileType
? "File system name: " + objFile.FSName
? "Hidden: " + Transform(objFile.Hidden)
? "Last accessed: " + objFile.LastAccessed
? "Last modified: " + objFile.LastModified
? "Manufacturer: " + objFile.Manufacturer
? "Name: " + objFile.Name
? "Path: " + objFile.Path
? "Readable: " + Transform(objFile.Readable)
? "System: " + Transform(objFile.System)
? "Version: " + objFile.Version
? "Writeable: " + Transform(objFile.Writeable)
Next
Di atas adalah contoh untuk mendapatkan informasi dari file NSISPortable.exe, silahkan dimodifikasi.
Semoga bermanfaat.
