Kan man i VB5 åbne en tekstfil i notepad eller anden teksteditor?

jeg ved ikke helt om det virker - men du kan jo prøve:


Private Declare Function GetActiveWindow Lib "user32" () As Long
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

Me.WindowState = vbMinimized
ShellExecute GetActiveWindow(), "Open", " stien til filen ", "", 0&, 1

det virker i vb6 men ved ikke helt om det virker i vb5

Er:

Shell "notepad " & filnavn

ikke i VB5 ?

Hej.

Jo, man kan bruge shell uden at definere funktioner.  Jeg lader altid shell udføre med, at der returneres en værdi, alt efter om kommandoen udføres - eller ikke.

Har installationen ikke sti til notepad, må den angives.

x = shell("C:\winnt\notepad.exe " & "dinsti" & "dinfil.txt")  mellemrummet efter exe er vigtigt!

Skal brugeren have mulighed for at vælge en anden editor, må denne angives i en ini-fil eller i 'Registry'.  At skrive den absolut er ikke nogen god ide.

M.v.h.  Jørn

over-load: Det virker. :-) Jeg har nogle efterfølgemde spørgsmål:
Vil det virke i alle 32-bit - windows?
Hvad hvis filtypen (.txt) ikke er associeret til notepad, men en anden editor, vil den så stadig åbnes i notepad? Med andre ord virker koden sådan at det er filtypens tilknyttede program, som afgører at det i mit tilfælde er notepad, der åbnes?

Jørn: Hvad hvis notepad ikke er installeret her "C:\winnt\notepad.exe "?

Hej.

Ja, der er flere løsninger.  Du kan som jeg omtaler, lade stien til notepad angive i en ini.fil eller i registry.  Du kan lade notepad eller en anden editor medfølge i din installations-setup og selv styre hvor den anbringes hos brugeren.

Jeg ved ikke om notepad altid ligger i windows-mappen, i så fald findes der et kald, der finder denne mappe uanset drev og mappe.

Dim fso
Dim sydir as string

Set fso = CreateObject("Scripting.FileSystemObject")
  sydir = fso.getspecialfolder(1)
  x = MsgBox("Din system-mappe er:  " & sydir, 64, "Afhængig af styresystem.")

M.v.h.  Jørn

jeg mener det vil virke på alle 32 bit systemer - hvis du bare lader .dll filen ligge i samme mappe som .exe filen

og ja - den kode jeg gav dig vil åbne .txt til den tekst editor der er sat som default

hvis du vil have fat i windows mappen kan du skrive stien som noget ala: $system-root$  så vidt jeg husker :)

Jeg vil gerne give både over-load og Jørn points. Over-load, sender du mig et svar?
:-)

svar :o)

how :P

Tak :-)