Newsgroup: it.comp.lang.visual-basic
Titolo: [?] lista dei dischi, lettori cd etc.

Come faccio ad avere la liosta di tutti i lettori cd, floppy, dischi fissi, unità rimovibili etc.?
Ovviamente devo sapere anche che tipo di unità è (floppy, disco fisso, unità rimovibile o lettore
cd). Grazie anticipatamente.
Salvo Aiola

Cerca filesystemobject nella guida
esempio tratto da msdn:
Sub ShowDriveList
    Dim fs, d, dc, s, n
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set dc = fs.Drives
    For Each d in dc
        s = s & d.DriveLetter & " - "
        If d.DriveType = 3 Then
            n = d.ShareName
        Else
            n = d.VolumeName
        End If
        s = s & n & vbCrLf
    Next
    MsgBox s
End Sub

 esempio tratto da msdn:
Che si pianta se non hai un floppy inserito. ;-)
Comunque a me pare di ricordare che non puoi avere la certezza che lo
scripting sia installato, soprattutto su sistemi Win95. Per ovviare a questo
problema esiste l'apposita Api GetDriveType32
Declare Function GetDriveType32 Lib "Kernel32" Alias "GetDriveTypeA" (ByVal
strWhichDrive As String) As Long
Basta ciclare da "A" a "Z" e controllare che il valore di ritorno sia una
delle seguenti costanti:
Global Const intDRIVE_REMOVABLE% = 2
Global Const intDRIVE_FIXED% = 3
Global Const intDRIVE_REMOTE% = 4
Global Const intDRIVE_CDROM% = 5
Global Const intDRIVE_RAMDISK% = 6
Ciao
*Roby*


č verissimo, ma se hai IE5 (forse basta IE4) o altri prodotti MS dell'ultima
generazione (?) di sicuro ce l'hai; e poi... chi usa piů WIN95 ?  ;))
ciao

 generazione (?) di sicuro ce l'hai; e poi... chi usa piů WIN95 ?  ;))
Lo scripting si puň disinstallare da qualunque versione di Windows, anzi č
pure consigliato farlo per evitare di prendersi i virus alla LoveLetter con
estensione .vbs.
http://www.sophos.com/support/faqs/wsh.html
Per quanto riguarda Win95 invece, sul retro di qualunque programma
commerciale c'č scritto che funziona su PC Win95 in poi. Per cambiare quella
scritta, devi parlare col reparto commerciale, che ogni volta che suggerisci
una restrizione fa i conti (di solito approssimando per eccesso) di quanto
gli costa in mancate vendite ;-)
Ciao
*Roby*

 generazione (?) di sicuro ce l'hai; e poi... chi usa più WIN95 ?  ;))
Diavoletto, stai scherzando, vero ? Nelle aziende che conosco io
(e parlo di un range che parte da Bolzano e si ferma a Bari) ci
sono circa altrettanti 95 che 98, Masochist Edition, NT e 2000
messi insieme... Tranne che da me, dove ci sonono io a scaricare
tutti i benedetti aggiornamenti, un PC aziendale di solito muore con il SW
con il quale è stato venduto. Tra il 95 e il 99 (quando, _credo_, il 95
è andato fuori produzione, chissà quante macchine con 95 preinstallato
sono state vendute ? Per non parlare delle vendite dirette (e delle
copie abusive, soprattutto...).
Bye, G.

 messi insieme...
si ma quante di queste se ne stanno ancora senza office 97 o IE5?
ciao

 Lo scripting si può disinstallare da qualunque versione di Windows,
ferma là,
la libreria SCRRUN.DLL (alias Microsoft Scripting Runtime) c'entra ben poco
con lo scripting (infatti trattasi di un caso di naming infelice); l'unica
relazione che ha con lo scripting è dovuta al fatto che implementa alcune
classi che permettono di fare cose altrimenti impossibili in VBScript (es.
accesso a file di testo);
non ho provato ma mi gioco l'occhio destro... del mio vicino di scrivania
;)) che se disabiliti (disinstallare... sei sicuro?)  lo scripting di IE la
bella (?) libreria rimane li ferma al suo posto;
ciao

 generazione (?) di sicuro ce l'hai; e poi... chi usa piů WIN95 ?  ;))
tutti quelli che hanno avuto la saggia idea di aspettare 5 anni per l'upg,
senza scannarsi dopo soli tre per bestemmiare poi gli altri due :)