Keskustelu: Ohjelmointikysymykset: QB, VB6: Tiedoston etsintä?

Oon kuullu ja tiedän että vb:llä saa tehtyä kaiken näköstä. Miten siis saa helposti etsittyä jonkun tiedoston?

kiitos, siitä on paljon apua.. :)

...jos se on mahdollista...

https://www.ohjelmointiputka.net/hak/?kieli­=Visual Basic&nimi=Dir

Kiits :)

Hei CyantLeap!

Tässä sulle QBasic'iin FIND juttu joka käy läpi levyaseman kaikki hakemistot/alihakemistot ja löytää tiedoston riippumatta siitä onko se piilossa vai ei, jos se on olemassa.

asema$ = "C:": tiedosto$ = "*.sys" 'esim.
CmdStr$ = asema$ + " CD\ | attrib " + tiedosto$ + " /s >c:\haku.flu"
SHELL CmdStr$
tiedosto$ = asema$ + "\haku.flu"
OPEN tiedosto$ FOR INPUT AS #1
HlpStr$ = INPUT$(LOF(1), 1): CLOSE #1
PRINT HlpStr$

Pienellä editoinnilla saat tän toimiin myös VB:ssä

Kiitti Nea.. :)

toi onki kätevä juttu kun aattelee et tarviihan sitä jotain etsiä joskus myös DOS pohjaisista ohjelmist :)

Tässä parempi esimerkki Nean koodista ilman shell-purkkaa. Listaa kaikki C-osion juuressa olevat sys-tiedostot, jos moisia löytyy..

DIM SomeFiles AS STRING
 CLS
 SomeFiles = DIR$("C:\*.sys")
DO UNTIL SomeFiles = ""
 PRINT SomeFiles
 SomeFiles = DIR$
LOOP

-Grey-

You're damn right Grey...your code is much better and faster than the code shown in my example...
But lemme' ask you something...Do you really hate chewing gum?

joo, ja lyhyempi.. :P mut ihan hyviä esimerkkejä kummatki.. :)

neau33 kirjoitti:

But lemme' ask you something...Do you really hate chewing gum?

Sanotaan vaikka että sana "viha" on äärimmäisen pieni ilmaisu siihen nähden mitä ovat tunteeni purkkakoodia kohtaan ;-)

-Grey-

Ihanaa Grey!

Jos koodi herättää tunteita, se ei voi olla kuollutta...

neau33 kirjoitti:

Jos koodi herättää tunteita, se ei voi olla kuollutta...

Kyl kuollukki voi herättää tunteita :P