[es] - Naredba koja čita sve postojeće diskove u kompjuteru

SLOJ.1973

Član broj: 130198
Poruke: 871
*.evizo.net.

+41 Profil

Naredba koja čita sve postojeće diskove u kompjuteru

^{28.07.2008. u 16:14 - pre 191 meseci}

Kojom naredbom u Accessu je moguće izvesti da se prikažu svi postojeći diskovi,particije,izmenjivi diskovi koji postoje na nekom računaru,da bih kasnije kroz listu ili kombo box mogao da ih prikažem?

Jednog dana...

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.

+8 Profil

Re: Naredba koja čita sve postojeće diskove u kompjuteru

^{28.07.2008. u 17:58 - pre 191 meseci}

Izvolte

Code:
Public Sub ShowDrives()
    Dim fso As Object
    Set fso = CreateObject("scripting.FileSystemObject")
    Dim drv, d, strText

    Set drv = fso.Drives

    For Each d In drv
        Select Case d.DriveType
            Case 0: strText = "Nepoznato   - "
            Case 1: strText = "Floppy      - "
            Case 2: strText = "HDD         - "
            Case 3: strText = "Mrezni disk - "
            Case 4: strText = "CD-ROM      - "
            Case 5: strText = "RAM Disk    - "
        End Select
        strText = strText & d.DriveLetter & ": "
        If d.isready Then strText = strText & d.volumeName
        Debug.Print strText
    Next d

    Set fso = Nothing
End Sub

Ozbiljan i odgovoran mladić

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.evizo.net.

+41 Profil

Re: Naredba koja čita sve postojeće diskove u kompjuteru

^{28.07.2008. u 22:58 - pre 191 meseci}

Hvala na kodu,ali ja ne umem da ga iskoristim za ono što mi treba:da mi prikaže sve postojeće diskove u comboboxu ili u listi.Ako može nekakva sugestija,pomoć bio bih vam zahvalan,jer evo mučim se skoro sat vremena sa ovim.Hvala.

Jednog dana...

Odgovor na temu

Scelle
Slavko Šćekić
Student, Računarski fakultet
Beograd

Član broj: 151761
Poruke: 174
85.94.113.*

Profil

Re: Naredba koja čita sve postojeće diskove u kompjuteru

^{29.07.2008. u 00:16 - pre 191 meseci}

Evo, mislim da ce ti ovo pomoci.
Pogledaj OnClick kod dugmeta sa forme.

"Takozvani praktični ljudi bili bi korisni i zasluživali bi svaku pohvalu i poštovanje kad od te svoje praktičnosti ne bi hteli da naprave smisao života i razlog svoga opstanka, opravdanje za podjarmljivanje i terorisanje svih onih koji su lišeni toga praktičnog smisla, ali zato stvoreni za druge, možda više i bolje podvige."

Ivo Andric

Prikačeni fajlovi

db1.zip - 11.42k

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.

+8 Profil

Re: Naredba koja čita sve postojeće diskove u kompjuteru

^{29.07.2008. u 00:32 - pre 191 meseci}

Mislim da je krajnje vreme da se napravi zaseban podforum "Access obdanište" za pitanje ovog tipa. Zašto tražiš nešto što znaš da ne umeš da primeniš? Evo okačio sam ti primer i zaista sve više gubim strpljenje sa ljudima koji neće da pročitaju bar neku knjižicu, odu na privatne časove, nego iz čista mira postavljaju pitanje kako da primenim gotov kod... Želim da ovaj forum bude malo ozbiljniji, ali kako kad postavljate previše elementarna pitanja, naučite da cenite vreme ljudi koji dolaze na ovaj forum da bi pomogli drugima...

Sorry Scelle, okačio si svoj primer dok sam ja smirivao sebe da ne napišem nešto neprikladno, pa nisam primetio. Ne radi se o korisniku SLOJ.1973 lično, fin je čovek, al' mislim stvarno je ovde postalo pravilo da ljudi očekuju da se baš sve nacrta...

Ozbiljan i odgovoran mladić

Prikačeni fajlovi

Drive Letters.mdb - 112k

Odgovor na temu

Scelle
Slavko Šćekić
Student, Računarski fakultet
Beograd

Član broj: 151761
Poruke: 174
85.94.113.*

Profil

Re: Naredba koja čita sve postojeće diskove u kompjuteru

^{29.07.2008. u 00:35 - pre 191 meseci}

E, da, zaboravio sam da kazem: SJAJAN KOD, svaka cast! I hvala ti.

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.evizo.net.

+41 Profil

Re: Naredba koja čita sve postojeće diskove u kompjuteru

^{29.07.2008. u 08:31 - pre 191 meseci}

Hvala Vam obojici.Slažem se sa domaćim da treba otvoriti podforum za access početnike,ali sam smatrao da ovaj forum treba da posluži ljudima da zavole access i da ga kroz njega koliko-toliko nauče.Možda pojedinci (u koje spadam i ja) nemaju vremena da odlaze na privatne časove,zato što su skoro 18 sati zauzeti drugim poslovima,možda u gradu u kome žive nema kurseva za ACCESS,možda i hiljadu drugih razloga postoje,pa ne vidim da se neko treba ljutiti zbog toga.Ako ne želiš da odgovoriš na pitanje,jednostavno ga preskočiš.Lepo sam naveo da sam skoro sat vremena pokušavao i na command on click i na ostalo ali eto nisam uspeo.Mislim da je ovde bilo mnogo trivijalnijih pitanja pa se niko zbog toga nije bunio,već postavio link ka odgovoru ako je pitanje postavljano više puta.Izvinjavam se što pripadam "access obdaništu" i trošim vaše dragoceno vreme.

Jednog dana...

Odgovor na temu

a_ddk
amater
Beograd

Član broj: 188454
Poruke: 3
212.200.204.*

Profil

Re: Naredba koja čita sve postojeće diskove u kompjuteru

^{29.07.2008. u 19:40 - pre 191 meseci}

Sto se mene tice pitanje nije bilo uopste trivijalno niti je odgovor bio trivijalan. I pitanje i odgovor zasluzuju da idu u Bazu znanja. Svaka cast i za jedno i za drugo. Nije lepo svadjati se i omalovazavati bilo koga. Ko misli da je pitanje suvise prosto, nemoj da odgovara.

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.

+8 Profil

Re: Naredba koja čita sve postojeće diskove u kompjuteru

^{29.07.2008. u 20:15 - pre 191 meseci}

Evo da se javim i ja hladne glave. Originalno pitanje svakako nije bilo trivijalno, drugo po meni jeste jer je trebalo samo izmeniti mesto u kome će se dobijeni podatak upisati. Svejedno, nisam morao tako oštro da reagujem i izvinjavam se zbog toga.

Ozbiljan i odgovoran mladić

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: Naredba koja čita sve postojeće diskove u kompjuteru

^{29.07.2008. u 20:18 - pre 191 meseci}

Sporno je bilo kako iskoristiti kod. Inače rešenje zaslužuje da bude u bazi znanja. S toga sam ga tamo i dodao. Ta Top tema je otvorena i svako ko misli da ima nešto da u nju doda, neka to i učini.

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.evizo.net.

+41 Profil

Re: Naredba koja čita sve postojeće diskove u kompjuteru

^{29.07.2008. u 22:44 - pre 191 meseci}

Drago mi je da smo se svi "ohladili".Prihvatam izvinjenje a ujedno još jednom VELIKO hvala domaći a naš-em jer mi je pomogao da bazu privedem kraju.Pozdrav svima,i dalje mislim da ste svi jako nesebični i spremni da nama iz "obdaništa" uvek pomognete.

Jednog dana...

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
*.PPPoE-7136.sa.bih.net.ba.

Sajt: www.icentar.ba

+2 Profil

Re: Naredba koja čita sve postojeće diskove u kompjuteru

^{31.07.2008. u 16:21 - pre 191 meseci}

Code:
Private Declare Function GetLogicalDrives Lib "kernel32" () As Long

Function Diskovi()
    Dim LDs As Long, Cnt As Long, sDrives As String
    LDs = GetLogicalDrives
    sDrives = "Available drives:"
    For Cnt = 0 To 25
        If (LDs And 2 ^ Cnt) <> 0 Then
            sDrives = sDrives + ";" + Chr$(65 + Cnt)
        End If
    Next Cnt
    Diskovi = sDrives
End Function

zxz

Odgovor na temu