Naredba koja čita sve postojeće diskove u kompjuteru

Naredba koja čita sve postojeće diskove u kompjuteru 28.07.2008. u 17:14 · pre 222 meseca #1

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?

Potpis

Jednog dana...

Re: Naredba koja čita sve postojeće diskove u kompjuteru 28.07.2008. u 18:58 · pre 222 meseca #2

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

Potpis

Ozbiljan i odgovoran mladić

Re: Naredba koja čita sve postojeće diskove u kompjuteru 28.07.2008. u 23:58 · pre 222 meseca #3

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.

Potpis

Jednog dana...

Re: Naredba koja čita sve postojeće diskove u kompjuteru 29.07.2008. u 01:16 · pre 222 meseca #4

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

Potpis

"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

db1.zip11.42k

Re: Naredba koja čita sve postojeće diskove u kompjuteru 29.07.2008. u 01:32 · pre 222 meseca #5

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...

Potpis

Ozbiljan i odgovoran mladić

Drive Letters.mdb112k

Re: Naredba koja čita sve postojeće diskove u kompjuteru 29.07.2008. u 01:35 · pre 222 meseca #6

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

Potpis

"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

Re: Naredba koja čita sve postojeće diskove u kompjuteru 29.07.2008. u 09:31 · pre 222 meseca #7

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.

Potpis

Jednog dana...

Re: Naredba koja čita sve postojeće diskove u kompjuteru 29.07.2008. u 20:40 · pre 222 meseca #8

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.

Re: Naredba koja čita sve postojeće diskove u kompjuteru 29.07.2008. u 21:15 · pre 222 meseca #9

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.

Potpis

Ozbiljan i odgovoran mladić

Re: Naredba koja čita sve postojeće diskove u kompjuteru 29.07.2008. u 21:18 · pre 222 meseca #10

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.

Potpis

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

Re: Naredba koja čita sve postojeće diskove u kompjuteru 29.07.2008. u 23:44 · pre 222 meseca #11

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.

Potpis

Jednog dana...

Re: Naredba koja čita sve postojeće diskove u kompjuteru 31.07.2008. u 17:21 · pre 222 meseca #12

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

Potpis

zxz

Forum kao aplikacija na telefonu

Srodne teme