TXT otevření v notepadu – Visual Basic – Fórum – Programujte.com

Prosím o radu jak jednoduše otevřít TXT třeba v notepadu.
dim cesta
cesta = "C:\" ' např
jmeno = text1.text

Open ("cesta" & jmeno & ".txt") For Random As read

nějak takhle podobně?Tohle mi nefunguje.

Díky za info

pokud je TXT asociovaný s notepadem jde použít tohle

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Open_Association(byVal Cesta as string)
If ShellExecute(Form_Start.hwnd, "open", Cesta, vbNullString, vbNullString, vbNormalFocus) < 33 Then
Shell "rundll32.exe shell32.dll,OpenAs_RunDLL " & Cesta
End If
end sub

Doporučil bych deklarovat jako Public Function Open_Association(byVal Cesta as String) as Integer (nebo Long) v obecném modulu. Funkce pak může vracet i různé chybové stavy. A když už, tak nemotat češtinu s angličtinou:
Public Function fncOtevriSoubor(byVal strCesta as String) as Integer
nebo
Public Function fncOpenFile(byVal strPath as String) as Integer

tak to mi moc pomohlo jako začátečníkovi...

To Zdenek : Doufám, že to nebylo myšleno ironicky. Já taky tak začínal. Protože nápověda je mizerná, dokumentace k Win API je pro Céčko, tak musíš hledat... nejlépe pomocí Google: http://www.google.cz/search?q=how+to+open+associated+file+in+Visual+Basic&rls=com.microsoft:cs&ie=UTF-8&oe=UTF-8&startIndex=&startPage=1

No právě že bylo :-/

Api neovládám ještě. i v knížkách to je popsáno dost neohrabaně :-/
na googlu jsem to nezkoušel ale zkusím a děkuju za tip

myslel jsem jak jednoduše načíst txt po řádkách a vypisovat je postupně do textboxu přes proměnou.

tak jsem to vyresil už :-)

Dim user
user = Text1.Text

Dim dTaskID As Double, path As String, file As String
path = "C:\WINDOWS\notepad.exe"
file = "C:\EasyEye\zaznam\" & user & ".txt"
dTaskID = Shell(path + " " + file, vbNormalFocus)

To Zdenek :
Vyřešil,... ale vůbec to není nejlepší řešení... :smile10:

To cvajniga : Taky bych rekl