Visual Basic

Raghvendra Kumar Roy wrote:

int len= textbox1.text.Length;
string[] str=new string[len];
for(int start=0;start{
str[start]=textbox1.text.substring(start,1)
}



try this this will work

Public Shared Function GetAssociatedProgram(ByVal Filename As String) As String<br />
        Dim sFileComponents() As String = Split(Filename, ".")<br />
        Dim sFileExtension As String = sFileComponents(UBound(sFileComponents))<br />
        Dim objExtReg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot<br />
        Dim objAppReg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.ClassesRoot<br />
        Dim sExtValue As String<br />
<br />
        Try<br />
            If sFileExtension.Substring(0, 1) <> "." Then sFileExtension = "." & sFileExtension<br />
            objExtReg = objExtReg.OpenSubKey(sFileExtension.Trim)<br />
            sExtValue = CType(objExtReg.GetValue(""), String)<br />
            objAppReg = objAppReg.OpenSubKey(sExtValue & "\shell\open\command")<br />
            Dim SplitArray() As String = Split(CType(objAppReg.GetValue(Nothing), String), """")<br />
            If SplitArray(0).Trim.Length > 0 Then<br />
                Return SplitArray(0).Replace("%1", "")<br />
            Else<br />
                Return SplitArray(1).Replace("%1", "")<br />
            End If<br />
        Catch ex As Exception<br />
            Return ""<br />
        End Try<br />
    End Function

Dim oEntry As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry("http://www.codeproject.com")<br />
        Dim sIPAddress As String = CType(oEntry.AddressList.GetValue(0), System.Net.IPAddress).ToString

Dim x as String = my.Computer.FileSystem.ReadAllText("UNC path to file")

JimmyTG wrote:

Is there any other way of doing this besides UNC? Just in case.

cstrader232 wrote:

Is there a good source for vb.net deployment issues? I'm having a lot of trouble with this part.