Åbne fil

Open filnavn For Input As #1

'hvor filnavn er type string, med sti og filnavn.

men jeg vil da klart anbefale at du f.eks. laeser :

http://216.26.168.92/files/openstatement/

for at faa yderligere info om hvordan du mere specifikt goer i praksis.

paa http://216.26.168.92/vbsquare/files/
er der ogsaa en hel del gode artikler og guides til emnet.

Det kommer meget an på hvad det er for fil der skal åbnes...

Er det en html fil der skal åbnes i et browservindue?
Er det en mediacontrol du vil åbne en wave fil i?

Skriv lidt mere.... her er lige et eksempel på hvordan du åbner en fil, med et externt program....Private

Sub Command1_Click()
Shell (App.Path & "\winamp.exe " & App.Path & "\min.mp3")
End Sub

/Tubber

points: 60 = svær
Du giver 200 for at få hjælp til at åbne en fil...? Nå ja, så vil jeg da også være med :o)

Hvis det er en tekstfil, du vil åbne og indlæse i en variabel, så se jelzins svar eller søg i spørgsmålene - der er MASSER af gode eksempler, søg f.eks. på "input"

1) Eksempel på læsning af een linie fra en txt-fil

  Dim FilNummer as Integer
  Dim MinStreng as String
  Filnummer = FreeFile
  Open "C:\Fil.txt" For Input As #Filnummer
  Line Input #Filnummer, MinString 'Putter 1. linie i filen ind i MinString
  Close #Filnummer

2) Eksempel på at alle linier ind i et array

  Dim FilNummer as Integer
  Dim MinStreng() as String
  Dim Tæller as integer
  Filnummer = FreeFile
  Open "C:\Fil.txt" For Input As #Filnummer
  Do While Not EOF(Filnummer)
    Line Input #Filnummer, MinString(Tæller)
    Tæller = Tæller+1
  Loop
  Close #Filnummer

3) Eksempel på at læse hele txt-filen ind i en variabel:

  Dim FilNummer as Integer
  Dim MinStreng as String
  Filnummer = FreeFile
  Open "C:\Fil.txt" For Input As #Filnummer
  MinString = Input(LOF(Filnummer), 1)
  Close #Filnummer
End Sub


HUSK at bruge close #Filnummer - ellers kan du beskadige filen...

Er du stadig med, teknikeren?

Ja de er fine alle de svar... Men jeg vil gerne have den til at åbne "C:/SIERRA/Half-Life/hl.exe"

Shell ("C:/SIERRA/Half-Life/hl.exe")

Og skal det være maximeret det åbnes så skal der lige en vbMaximizedFocus på så bliver det til :

Shell ("C:/SIERRA/Half-Life/hl.exe"), vbMaximizedFocus

/Tubber

Der er også:

vbMaximizedFocus
vbMinimizedFocus
vbMinimizedNoFocus
vbNormalFocus
vbNormalNoFocus

teknikerer> wow - du gav 200 points for at lære at bruge shell-kommandoen?

PS - tak for points for besværet :o(

Jeg vil da godt dele dem :O)

Nej nej - behold du dem bare :o) Jeg undrer mig bare over ovenstående...