Mendapatkan Properti / Informasi File dengan Visual Foxpro

no run like fox

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.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s