Liste alle *.bat filer der er i en mappe

file1.path = "c:\bat\"
Angiver at file1 kun skal hente filer fra den mappe.

file1.pattern = "*.bat"
og det er kune bat filer der skal vises.

SÅ i file1 klik procedure kan du lave noget ala det her.

shell "c:\bat\" & file1.filename

shell er det samme som at skrive en kommando i en DOS - Prompt.
ex. shell "Ping ip.ip.ip.ip"

mener også du kan bruge
run "filenavn"

Men kan du se ideen i det?

/Casper www.ildstorm.dk

Hmmm, er for sent på den men her er en stump kode:

Indsæt en filelistbox og en commandbutton på en form og paste denne kode ind.

//akj

Private Sub Command1_Click()
Shell File1.Path & "\" & File1.FileName

End Sub

Private Sub Form_Load()

Command1.Caption = "Kør batfil"


File1.Path = "d:\data\bats\"
File1.Pattern = "*.bat"

End Sub

Mon jeg skulle lægge et 3. svar - bare så der er 3 ens fuldstændigt identiske svar at vælge imellem ?  ;o)

Jeg kan da sende dig et så du ikke skal lave for meget arbejde selv,
Nåh, men jeg sad lige og lavede et eks. til Ducks da jeg blev forstyret. Lavede eks. færdig og så at xzxzx ikke var blevet forstyret, og tænkte at jeg ligesågodt kunne poste mit svar.

god weekend.
//akj

Yep - det var bare for at lave lidt sjov!!!  ;o)

Kender selv det med at sidde og forfatte et svar, og når man så sender det er der kommet 5 andre svar i mellemtiden.

Men der er en fejl?

Private Sub Command1_Click()
Shell File1.Path & "\" & File1.FileName
End Sub

Private Sub Form_Load()
Command1.Caption = "Kør batfil"
File1.Path = "d:\bat" 'Run-time error '424': Object required
File1.Pattern = "*.bat"
End Sub

Findes d:\bat\ ?

ja

Og har du oprettet File1 på din form?

For at koden fra dk_akj skal virke, skal du oprette

1 form. På formen smider du:

En trykknap på (CommandButton), ved navn Command1
En FilListe (FileListBox) ved navn File1

På din HD skal du oprette d:\bat (eller skift stien i koden)

Den fejl du får tyder på at du ikke har indsat en FileListBox, eller har kaldt den noget andet end File1

kan man køre dette med billeder altså for eks sådan:

Private Sub Command1_Click()
Shell File1.Path & "\" & File1.filename


End Sub

Private Sub Form_Load()

Command1.Caption = "Vis billede"


File1.Path = "c:\Documents and Settings\"
File1.pattern = "*.JPEG"

End Sub

Det virker bare ikke.. Hvad er der galt?

Hej Mattias,

Jeg har ikke testet det men prøv at ændre:
Shell File1.Path & "\" & File1.filename
Til:
Shell "iexplore " File1.Path & "\" & File1.filename

Så vil du åbne IE med billedet som parameter og den burde vise det.
Test evt. ved start - run skriv "iexplore c:\temp\billede.jpg" og se om det virker.

//akj

Det kan jeg ikk få til at virke.. :(

Har du testet med start - run ?

//akj

Det skal ike hedde:

Shell "iexplore " File1.Path & "\" & File1.filename

Men

Shell "iexplore " & File1.Path & "\" & File1.filename

Prøv at skriv din kommando ud i fx en msgbox, så kan du lettere se alle fejlene..

Altså:

Dim MinString as string
MinString = "iexplore " & File1.Path & "\" & File1.filename
msgbox Minstring

'Ser sin msgbox OK ud, så kør

Shell MinString

Der står:

MinString = "iexplore " & File1.Path & "\" & File1.filename
            ^ compile error
              invalid outsite procedure

Øhh??

minstring er måske en funktion ??
prøv med my_string istedet.

//akj

MinString er næppe en funktion. Du skriver nok et forkert sted.

Men drob bare stringvariablen - pointen var, at du manglede et &, og at du kan teste med f.eks en msgbox før du sender den afsted til en shell

Så koden skal altså være???

Du bliver nødt til at spec. den fulde sti til iexplore.exe, jeg har tidligere på E vist hvordan du finder default browser.

Ellers brug:

file = "C:\Program Files\Internet Explorer\iexplore.exe " & File1.Path & "\" & File1.filename

'msgbox file
shell file


//akj

Hvorfor spørger mattiasdh til duck's spørgsmål?

Prøv at se om du ikke kan forstå 18/05-2006 21:51:47 hvis du læser det der står :o)

Jeg fatter bare ikke det her......

Du for det hele foræret på et sølvfad - vi forudsætter blot, at du har bare lidt erfaring med vb...

Start forfra:

1) Start et nyt spørgsmål, i stedet for at spørge videre på et lukket spørgsmål, som en anden har oprettet.

2) beskriv dit problem - hvad du vil opnå - og vis et uddrag af den relevante kode

3) Fortæl hvisken fejl du oplever - "det virker ikke" kan vi ikke bruge til noget.

:o)

Nånånå.. Det gør jeg..