Drives ricerca

panfra

il 05 giu 2025, 17:06

11 risposte

panfra

Utente Attivo

Iscritto da: dic, 2020

Messaggi:: 115

Drives ricerca

05 giu 2025, 17:51

Buongiorno quello che vorrei fare è ottenere la lista dei drives del pc o almeno sapere se uno esiste io ho scritto il seguente codice: il problema è che ni risponde sempre false..... Grazie

drives = File.GetDirectories("C:\") '.GetDrives()
     driveLettera = "C:\"
     ' Sostituisci con la lettera del drive che vuoi controllare ***************************************************************** DA FARE

     seEsiste = Array.ContainsValue(drives, driveLettera)
     
       
     If seEsiste = "true" Then
     GraphicsWindow.ShowMessage("Il drive " + driveLettera + " esiste.","Drive")
     Else
     GraphicsWindow.ShowMessage("Il drive " + driveLettera + " non esiste.","Drive")
      EndIf

11 Risposte

By65Franco

Molto attivo

Iscritto da: apr, 2023

Messaggi:: 1466

Re: Drives ricerca

05 giu 2025, 21:29

Non usare ContainsValue e File.GetDirectories...

prova per esempio in questo modo:

drives = File.GetDrives()
driveLettera = "C:\"
seEsiste = "false"

For i = 1 To Array.GetItemCount(drives)
  If drives[i] = driveLettera Then
    seEsiste = "true"
  EndIf
EndFor

If seEsiste = "true" Then
  GraphicsWindow.ShowMessage("Il drive " + driveLettera + " esiste.", "Drive")
Else
  GraphicsWindow.ShowMessage("Il drive " + driveLettera + " non esiste.", "Drive")
EndIf

O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21799
Re: Drives ricerca
06 giu 2025, 00:42
Di che linguaggio parliamo @panfra?
È small basic?
S
sihsandrea
Molto attivo
Iscritto da
feb, 2011
Messaggi:
1805
Re: Drives ricerca
06 giu 2025, 08:32
05/06/2025 - panfra ha scritto:
Array.ContainsValue(drives, driveLettera)
Restituisce vero o falso come valore booleano non come stringa
05/06/2025 - panfra ha scritto:
If seEsiste = "true" Then
Andrebbe scritto if seesite=true then... senza apici altrimenti l'espressione è sempre falsa.
Oppure in forma breve
If (seesiste) then...
o direttamente
```
If (Array.ContainsValue(drives, driveLettera)) then
   GraphicsWindow.ShowMessage("Il drive " + driveLettera + " esiste.","Drive")
Else
   GraphicsWindow.ShowMessage("Il drive " + driveLettera + " non esiste.","Drive")
EndIf
```

panfra

Utente Attivo

Iscritto da: dic, 2020

Messaggi:: 115

Re: Drives ricerca

06 giu 2025, 10:56

Nella risposta di By65Franco small basic mi dice che getdrives non esiste nel linguaggio.

nella risposta di sihandrea mi dice che il drive C non esiste :

  drives = File.GetDirectories("C:\") '.( GetDrives() non esiste?)
     driveLettera = "C:\"
    
    If (Array.ContainsValue(drives, driveLettera)) then
   GraphicsWindow.ShowMessage("Il drive " + driveLettera + " esiste.","Drive")
Else
   GraphicsWindow.ShowMessage("Il drive " + driveLettera + " non esiste.","Drive")
EndIf

S
sihsandrea
Molto attivo
Iscritto da
feb, 2011
Messaggi:
1805
Re: Drives ricerca
06 giu 2025, 11:30
Si, in small basic la funzione non esiste...al massimo dovresti crearla.
A quella soluzione che ti ha dato franco sostituisci
driveLettera = "C:\"
Con
driveLettera = "C:"
Small basic riconosce le unità come a:, b: c: ecc...
By65Franco
Molto attivo
Iscritto da
apr, 2023
Messaggi:
1466
Re: Drives ricerca
06 giu 2025, 11:33
06/06/2025 - panfra ha scritto:
Nella risposta di By65Franco small basic mi dice che getdrives non esiste nel linguaggio.
beh, ho visto che avevi remmato le getdrives , quindi bastava utilizzarla.
Questo vuol dire che hai solo la versione base e non hai caricato nessuna estensione con comandi/funzioni extra.
Con precisione potresti dire lo scopo ultimo della funzione che stai scrivendo ? grazie.
Magari conviene usare tecniche diverse .

oregon

Super Famoso

Iscritto da: nov, 2011

Messaggi:: 21799

Re: Drives ricerca

06 giu 2025, 12:26

@panfra, a parte il fatti che non mi avevi risposto alla domanda che ti avevo fatto, il semplice codice dovrebbe essere

driveLettera ="Z"

drives = File.GetDirectories(driveLettera + ":\")
If drives = "FAILED" Then
    GraphicsWindow.ShowMessage("Il drive " + driveLettera + " NON esiste.","Drive")
Else
   GraphicsWindow.ShowMessage("Il drive " + driveLettera + " esiste.","Drive")
EndIf

P
panfra
Utente Attivo
Iscritto da
dic, 2020
Messaggi:
115
Re: Drives ricerca
06 giu 2025, 19:18
Il codice serve per aprire e/o salvare un file. Io lo faccio graficamente e lascio scegliere il drive su cui effettuare l'operazione all'utente. Essendoci piu' drive disponibili avrei bisogno di una loro lista o di sapere se un drive esiste o no. Tuttto qui.
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21799
Re: Drives ricerca
06 giu 2025, 19:47
E quindi?
Hai visto il codice he ti ho proposto?
Lo hai provato?
P.S. Se scrivi libri su Small Basic queste cose le dovresti conoscere ...
P
panfra
Utente Attivo
Iscritto da
dic, 2020
Messaggi:
115
Re: Drives ricerca
06 giu 2025, 20:51
Grazie Oregon non avevo fatto troppo caso al tuo codice e non provandolo non ero arrivato alla conclusione che funziona. grazie ancora.
O
oregon
Super Famoso
Iscritto da
nov, 2011
Messaggi:
21799
Re: Drives ricerca
06 giu 2025, 21:21
Di nulla ... certo non fare caso alle risposte in una discussione che hai aperto tu ... significa essere veramente distratti ...

Devi accedere o registrarti per scrivere nel forum

11 risposte