Module Hello
Sub Main( )
Dim sName As String, i As Integer
i = InputBox$( "Ποσα αρχεία επιθυμείς να ανοιξεις? : " , "Παράθυρο Διαλόγου" )
For loop_var = 0 To i - 1
sName = InputBox$( "Δώστε το ονομα(πλήρες path) του αρχείου : " , "Παράθυρο Διαλόγου" )
MsgBox( "Άνοιγμα του αρχείου: " & sName)
Process.Start ( sName)
Next
End Sub
End Module
TW9kdWxlIEhlbGxvCiAgICBTdWIgTWFpbigpCiAgICAgICAgRGltIHNOYW1lIEFzIFN0cmluZywgaSBBcyBJbnRlZ2VyCgogICAgICAgIGkgPSBJbnB1dEJveCQoIs6gzr/Pg86xIM6xz4HPh861zq/OsSDOtc+AzrnOuM+FzrzOtc6vz4Igzr3OsSDOsc69zr/Ouc6+zrXOuc+CPyA6ICIsICLOoM6xz4HOrM64z4XPgc6/IM6UzrnOsc67z4zOs86/z4UiKQoKICAgICAgICBGb3IgbG9vcF92YXIgPSAwIFRvIGkgLSAxCiAgICAgICAgICAgIHNOYW1lID0gSW5wdXRCb3gkKCLOlM+Oz4PPhM61IM+Ezr8gzr/Ovc6/zrzOsSjPgM67zq7Pgc61z4IgcGF0aCkgz4TOv8+FIM6xz4HPh861zq/Ov8+FIDogIiwgIs6gzrHPgc6szrjPhc+Bzr8gzpTOuc6xzrvPjM6zzr/PhSIpCiAgICAgICAgICAgIE1zZ0JveCgizobOvc6/zrnOs868zrEgz4TOv8+FIM6xz4HPh861zq/Ov8+FOiAiICYgc05hbWUpCiAgICAgICAgICAgIFByb2Nlc3MuU3RhcnQoc05hbWUpCiAgICAgICAgTmV4dAogICAgRW5kIFN1YgpFbmQgTW9kdWxl
compilation info
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/kpUEky/prog.vb (7,23) : Error VBNC30451: Could not resolve the name 'loop_var'
There were 1 errors and 0 warnings.
Compilation took 00:00:00.9569720
stdout