Dim information As System.IO.FileInfo
Dim qFileLen As String
information = My.Computer.FileSystem.GetFileInfo("D:\Ваш.exe")
qFileLen = information.Length
Как определить длину в байтах .exe-файла?
Dim foriglen As Long = FileLen(“D:\MyLovingProg.exe”)
Dim mymsg As String = "Current FileLen(OrigFileName) = " & foriglen
Пускаю программу и получаю: foriglen = 23040
Удаляю Current:
Dim mymsg As String = "FileLen(OrigFileName) = " & foriglen
Пускаю программу и получаю то же значение: foriglen = 23040
Вопрос: как получить точное значение длины выполняемой программы в байтах при изменении .exe-кода даже на один байт (я полагаю, что при изменении исходного текста изменяется и .exe-код)
Благодарю за внимание
Код: