File in map?

[kantersjojo]

Welke commad moet ik gebruiken om te kijken of er een bestand in een map staat?

Zoals:

If lol.exe is found
process.start ("lol.exe")
Else
msgbox ("Sorry lol.exe is not found")

 

[That Guy]

if dir("C:\bbq.exe") <> "" then

 

[kantersjojo]

if dir("C:\bbq.exe") <> "" then

als ik dit doe:

        If Dir("ims.exe") <> "" Then
            Process.Start("ims.exe")
        Else
            MsgBox("You didnt download our client yet")
        End If

dan start i mn programma opnieuw op

 

[That Guy]

Tsja.

Kijk, de functie 'Dir' doet iets heel 'simpels': het kijkt of iets bestaat. Als je geen volledig pad opgeeft (dwz. C:\bla\bbq\foo\x.txt) dan gaat ie uit van het pad waar je exe staat. Ofwel, wat jij doet is dit:

1. ALS ims.exe bestaat in de map waar dit prog in rent, DAN open je ims.exe
2. ALS ims.exe niet bestaat in de map, geef een messagebox.​

dus... wat is je probleem precies? Als het programma met deze code 'ims.exe' heeft, zal het dus een nieuwe instantie van zichzelf openen.

Welke commad moet ik gebruiken om te kijken of er een bestand in een map staat?

Dir() dus...

 

[kantersjojo]

Tsja.

Kijk, de functie 'Dir' doet iets heel 'simpels': het kijkt of iets bestaat. Als je geen volledig pad opgeeft (dwz. C:\bla\bbq\foo\x.txt) dan gaat ie uit van het pad waar je exe staat. Ofwel, wat jij doet is dit:

1. ALS ims.exe bestaat in de map waar dit prog in rent, DAN open je ims.exe
2. ALS ims.exe niet bestaat in de map, geef een messagebox.​

dus... wat is je probleem precies? Als het programma met deze code 'ims.exe' heeft, zal het dus een nieuwe instantie van zichzelf openen.





Dir() dus...

lol haha sorry bedankt het was een typ foutje van mij. Heel erg bedankt !

 

[The Mighty Atom]

Een andere mogelijkheid is:

if file.exists(path) then
...
else
...
endif

Dat zit onder System.IO.

 

[kantersjojo]

mischien kunnen jullie hier snel op andtwoorden

Hoe doe ik ook alweer commands in een msg box?
van:

MsgBox("You didnt download our client yet, Do you want to download it?", MsgBoxStyle.YesNo, "Download error")
if msgbow anwser = yes then
(hier moet het een internet pagina openen)
else
end if

 

[azb100]

Hier:

Dim Result As MsgBoxResult = MsgBox("You didnt download our client yet, Do you want to download it?", MsgBoxStyle.YesNo, "Download error")
If Result = 6 then
Process.Start("JOUW URL HIER") 'Opent een webpagina in de default browser
else
'wat te doen als op nee word geklikt
end if

Met groeten van,

Azb100, hoop dat het helpt!:thumb: