#include <File.au3>

$x = FileOpenDialog("Datei mit Version im Namen versehen", @MyDocumentsDir & "\", "EXE (*.exe)")
If @error Then Exit

$version = FileGetVersion($x)

$punkt = StringInStr($x, ".")

$szDrive = ""
$szDir = ""
$szFName = ""
$szExt = ""

$z = _PathSplit($x, $szDrive, $szDir, $szFName, $szExt)

FileMove($x, $szFName & " (" & $version & ")" & $szExt)