Shell Buraya kadar herşey doğru fakat benim istediğim text e yazdığım adresi butona basınca açması. Yardım lütfen

Kod: Shell "explorer. exe " & Text1. Text başına http:// koyman gerekir. yoksa bir dizin gibi algılar bunun yerine Kod: Shell "D:\program files\Internet Explorer\iexplore " & Text1. Text komutu daha mantıklı olabilir

on error resume next open "dosyayolu" for input as

input 1, adres Shell close

ben şöyle düşünmüştüm MsgBox (Text1. Text) gibi yani Shell ("explorer. exe = Text1. Text")

Şöyle birşey buldum umarım işine yarar Kod: Public Function LoadFileToTB As Boolean 'PURPOSE: Loads file specified by FilePath into textcontrol ' specified by TxtBox 'If Append = true, then loaded text is appended to existing ' contents else existing contents are overwritten 'Returns: True if Successful, false otherwise Dim iFile As Integer Dim s As String If Dir = "" Then Exit Function On Error GoTo ErrorHandler: s = TxtBox. Text iFile = FreeFile Open FilePath For Input As #iFile s = Input(LOF , #iFile) If Append Then TxtBox. Text = TxtBox. Text & s Else TxtBox. Text = s End If LoadFileToTB = True ErrorHandler: If iFile > 0 Then Close #iFile End Function Public Function SaveFileFromTB _ As Boolean 'PURPOSE: Saves contents of text control specified by TxtBox to file specified by FilePath 'If Append = true, then TxtBox's contents are 'appended to existing file contents 'else existing file is overwritten 'Returns: True if Successful, false otherwise Dim iFile As Integer iFile = FreeFile If Append Then Open FilePath For Append As #iFile Else Open FilePath For Output As #iFile End If Print #iFile, TxtBox. Text SaveFileFromTB = True ErrorHandler: Close #iFile End Function