Keskustelu: Ohjelmointikysymykset: VB6: Tiedoston koko

Mitenkäs saisi tiedoston koon selville..? Esim vaikka joku explorer.exe

QBasicilla https://www.ohjelmointiputka.net/koodivinkit/23504-qb-tiedoston-tiedot

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

Mm, kiitos
EDIT: Hmhmm, mikäs tässä on vikana?

kokotarkastus = jaettukansio & File1.FileName
Koko = FileLen(""" & kokotarkastus & """)

Lainausmerkkerjä ei voi laittaa lainausmerkkien sisään.

kokotarkastus = jaettukansio & File1.FileName
Koko = FileLen(Chr(34) & kokotarkastus & Chr(34))

Chr(34) siis lainausmerkki.

Blaze kirjoitti:

Lainausmerkkerjä ei voi laittaa lainausmerkkien sisään.

Helposti ei voi, mutta periaatteessa pystyy :) 2 lainausmerkkiä merkkijonon sisällä (joka voidaan erottaa lainaismerkeillä) tarkoittaa yhtä lainausmerkkiä.

Toki saman voi tehdä käyttämällä ASCII-koodia suoraan, mutta tuplalainausmerkit ovat nopeampia käyttää, kunhan niitä tottuu katsomaan.

Edit: Tarkennus vielä:

kokotarkastus = jaettukansio & File1.FileName
Koko = FileLen(""" & kokotarkastus & """)

Tuo ei toimi, koska lainausmerkkiä ei voi pistää yksinään merkkijonoon (lainausmerkkien sisään.) Yksi lainausmerkki vaatisi 4 lainausmerkkiä, reunoissa siis aina 2 ja lainausmerkki saadaan tuplalainausmerkillä. Tuo &-merkki on turha tässä tapauksessa, mutta selkeyden vuoksi sen voi halutessaan pitää. Koodi menisi siis näin:

kokotarkastus = jaettukansio & File1.FileName
Koko = FileLen("""kokotarkastus""")

Edit2: Vasta tajusin, että nuo lainausmerkit ovat turhat tässä tapauksessa :) kokotarkastus:han on muuttujan nimi, joka sisältää merkkijonon, eikä tavallinen merkkijonon määrittely, joka vaatisi lainausmerkit.

Pistetään nyt vielä selkeyden vuoksi oikea tapa:

kokotarkastus = jaettukansio & File1.FileName
Koko = FileLen(kokotarkastus)

jv_windy kirjoitti:

2 lainausmerkkiä merkkijonon sisällä (joka voidaan erottaa lainaismerkeillä) tarkoittaa yhtä lainausmerkkiä.

Hmm... Miksiköhän en oo tuohon törmänny aikasemmin? Noitahan joutuu ruveta käyttämään.

Ja joo, nyt kun tarkemmin katsoo, niin lainausmerkit ovat tosiaan täysin turhia tässä tapauksessa.

Tosta windyn tulee error, file not found...

Otitko huomioon, että väliin pitää tunkea kenoviiva? \

Joo! :D Kiitos hunajavohveli :D:DD

Tässä vielä vinkki vastaisuuden varalle: Kannattaa tarkistaa muuttujien arvot ongelmakohdassa, niin selviää heti, mikä niissä on vikana. Moinen olisi tässä tapauksessa onnistunut ihan vaikka näin:

MsgBox kokotarkastus

Mm, tota käytinkin, mutten huomannu sitä ettei siinä oo viivaa :D:D

Muuttujia voi tietenkin vilkuilla myös sitten, kun ohjelman ajo tökkää virheilmoitukseen. Hiiriosoitin muuttujan päälle niin arvo näkyy vihjetekstinä osoittimen vieressä. Oon meinaan paljon harjoitellut juuri tuota virheilmoituksen jälkeistä toimintaa :)