Ekstern fil i textbox

Åben en fil:

Open \"minfil.txt\" for input as #1
strContent = input(lof(1),#1)
close #1

text1.text=strContent

Jeg kan få det til at virke med en txt fil, men ikke med en doc fil...

Kan det ikke lade sig gøre?

.:Berg:.

En .doc fil er jo sådanset i et binært format pga. filformatet, så nej.

Kan man så ikke åbne filen, sådan at den automatisk åbner i word? Eller hvad man nu bruger til .doc filer.

.:Berg:.

Jo, det kan man godt. Der skal du bruge ShellExecute.

I declaration section:

Private 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 Const SWP_SHOWWINDOW = &H40
Private Const SWP_NOACTIVATE = &H10
Private Const SW_SHOWNORMAL = 1

i den SUB/function hvor du vil åbne .doc filen i det program .doc filer er associeret med.

lngRetVal = ShellExecute(0&, \"open\", \"minfil.doc\", \"\", \"\", SW_SHOWNORMAL)

Mange tak for hjælpen 8-)

.:Berg:.

Det var så lidt :-)