Module Hello
Sub Main()
Dim sName As String, i As Integer, loop_var As Integer
i = 1
For loop_var = 0 To i - 1
Debug.Print "The strings are the same."
sName = InputBox$("Δώστε το ονομα(πλήρες path) του αρχείου : ", "Παράθυρο Διαλόγου")
MsgBox("Άνοιγμα του αρχείου: " & sName)
'Process.Start(sName)
Shell(sName, AppWinStyle.NormalFocus)
Next
End Sub
End Module
TW9kdWxlIEhlbGxvCiAgICBTdWIgTWFpbigpCiAgICAgICAgRGltIHNOYW1lIEFzIFN0cmluZywgaSBBcyBJbnRlZ2VyLCBsb29wX3ZhciBBcyBJbnRlZ2VyCiAKICAgICAgICBpID0gMQogCiAgICAgICAgRm9yIGxvb3BfdmFyID0gMCBUbyBpIC0gMQoJCURlYnVnLlByaW50ICJUaGUgc3RyaW5ncyBhcmUgdGhlIHNhbWUuIiAgICAgICAgICAgIAoJCXNOYW1lID0gSW5wdXRCb3gkKCLOlM+Oz4PPhM61IM+Ezr8gzr/Ovc6/zrzOsSjPgM67zq7Pgc61z4IgcGF0aCkgz4TOv8+FIM6xz4HPh861zq/Ov8+FIDogIiwgIs6gzrHPgc6szrjPhc+Bzr8gzpTOuc6xzrvPjM6zzr/PhSIpCiAgICAgICAgICAgIE1zZ0JveCgizobOvc6/zrnOs868zrEgz4TOv8+FIM6xz4HPh861zq/Ov8+FOiAiICYgc05hbWUpCiAgICAgICAgICAgICdQcm9jZXNzLlN0YXJ0KHNOYW1lKQogICAgICAgICAgICBTaGVsbChzTmFtZSwgQXBwV2luU3R5bGUuTm9ybWFsRm9jdXMpCiAKICAgICAgICBOZXh0CiAgICBFbmQgU3ViCkVuZCBNb2R1bGU=
Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.
/home/PLhfkK/prog.vb (8,42) : Error VBNC30205: Expected end of statement.
/home/PLhfkK/prog.vb (8,42) : Error VBNC30084: CHANGEME
/home/PLhfkK/prog.vb (8,42) : Error VBNC90019: Expected 'End'.
Error recovery not implemented yet.
/home/PLhfkK/prog.vb (8,42) : Error VBNC30205: Expected end of statement.
Error recovery not implemented yet.
/home/PLhfkK/prog.vb (8,42) : Error VBNC90019: Expected 'End'.
Error recovery not implemented yet.
/home/PLhfkK/prog.vb (8,42) : Error VBNC30205: Expected end of statement.
Error recovery not implemented yet.
/home/PLhfkK/prog.vb (8,42) : Error VBNC30203: Not valid as identifier.
/home/PLhfkK/prog.vb (9,8) : Error VBNC30203: Not valid as identifier.
/home/PLhfkK/prog.vb (10,19) : Error VBNC30203: Not valid as identifier.
/home/PLhfkK/prog.vb (12,18) : Error VBNC30203: Not valid as identifier.
/home/PLhfkK/prog.vb (14,13) : Error VBNC30203: Not valid as identifier.
/home/PLhfkK/prog.vb (15,12) : Error VBNC30203: Not valid as identifier.
/home/PLhfkK/prog.vb (16,11) : Error VBNC30203: Not valid as identifier.
There were 13 errors and 0 warnings.
Compilation took 00:00:00.6598770