Hi, das Skript ist eindeutig, dennoch gibt es es mir keine Auflistung der Dateigenschaten zurück. Woran kann es nur liegen? Funktioniert weder mit deutschen noch mit englischen Dateieigenschaften... Danke Euch schon im voraus Jan
$sProperties='Comments, InternalName, interner Name, ProductName, CompanyName, LegalCopyright, ProductVersion, FileDescription, LegalTrademarks, PrivateBuild, FileVersion, OriginalFilename, SpecialBuild'
$aProperties=StringSplit($sProperties,',')
$sNew=''
$sPath='c:\Windows\explorer.exe';D:\Programme\Multimedia\DVDStyler\dvdauthor\cygwin1.dll
Do
$iDecision = ''
If FileExists($sPath) then
For $i = 1 to $aProperties[0]
$ver = FileGetVersion($sPath, $aProperties[$i]);cygwin1.dll
$sNew=$sNew & $aProperties[$i] & ': ' & $ver
If $i = $aProperties[0] then ExitLoop(1)
$sNew=$sNew & @CRLF
Next
$h= FileOpen ('c:\fileinfo.txt', 2)
FileWrite ($h, $sNew)
FileClose($h)
Run ('notepad c:\fileinfo.txt')
MsgBox(0, "Explorer Version", $sNew,10)
Else
$iDecision= FileOpenDialog ( "Datei nicht gefunden - neue Eingabe", "c:\", "Alle (*.*)" )
EndIf
Until StringLen($iDecision)=''
