Naredba koja čita sve postojeće diskove u kompjuteru

[ SLOJ.1973 @ 28.07.2008. 16:14 ] @

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?

[ domaci_a_nas @ 28.07.2008. 17:58 ] @

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

[ SLOJ.1973 @ 28.07.2008. 22:58 ] @

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.

[ Scelle @ 29.07.2008. 00:16 ] @

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

[ domaci_a_nas @ 29.07.2008. 00:32 ] @

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

[ Scelle @ 29.07.2008. 00:35 ] @

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

[ SLOJ.1973 @ 29.07.2008. 08:31 ] @

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.

[ a_ddk @ 29.07.2008. 19:40 ] @

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.

[ domaci_a_nas @ 29.07.2008. 20:15 ] @

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.

[ Getsbi @ 29.07.2008. 20:18 ] @

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.

[ SLOJ.1973 @ 29.07.2008. 22:44 ] @

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.

[ izonic @ 31.07.2008. 16:21 ] @

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