USB-Anschlüsse checken

Übersicht

BlitzBasic

Allgemein

	DAK Betreff: USB-Anschlüsse checken	So, Jan 27, 2008 8:36 Antworten mit Zitat
Titel passt nicht ganz, aber mir ist kein besserer eingefallen... Hat wer eine Ahnung, wie ich in BB rausbekomm, ob ein USB-Stick angesteckt worden ist?
Gewinner der 6. und der 68. BlitzCodeCompo

DAK

Betreff: USB-Anschlüsse checken

So, Jan 27, 2008 8:36
Antworten mit Zitat

Titel passt nicht ganz, aber mir ist kein besserer eingefallen...
Hat wer eine Ahnung, wie ich in BB rausbekomm, ob ein USB-Stick angesteckt worden ist?

Gewinner der 6. und der 68. BlitzCodeCompo

	Thunder Betreff: Re: USB-Anschlüsse checken	So, Jan 27, 2008 15:02 Antworten mit Zitat
DAK hat Folgendes geschrieben: Titel passt nicht ganz, aber mir ist kein besserer eingefallen... Hat wer eine Ahnung, wie ich in BB rausbekomm, ob ein USB-Stick angesteckt worden ist? müsste so gehn: Code: [AUSKLAPPEN] [EINKLAPPEN] anschlusse$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" For i=1 To 26 checking$=Mid$(anschlusse$,i,1) If FileType(checking$+":\")=2 Then gecheckt$=gecheckt$+checking$ Next Print "stecken sie jetzt ein USB-Gerät an. " Print "drücken sie dann ENTER" WaitKey For i=1 To 26 checking2$=Mid$(anschlusse$,i,1) If FileType(checking2$+":\")=2 Then gecheckt2$=gecheckt2$+checking2$ Next If gecheckt$=gecheckt2$ Then Print "Es wurde kein USB-Gerät angesteckt" If gecheckt$<>gecheckt2$ Then Print "Es wurde ein USB-Gerät angesteckt"
Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit

Thunder

Betreff: Re: USB-Anschlüsse checken

So, Jan 27, 2008 15:02
Antworten mit Zitat

DAK hat Folgendes geschrieben:

Titel passt nicht ganz, aber mir ist kein besserer eingefallen...
Hat wer eine Ahnung, wie ich in BB rausbekomm, ob ein USB-Stick angesteckt worden ist?

müsste so gehn:
Code: [AUSKLAPPEN]

anschlusse$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i=1 To 26
checking$=Mid$(anschlusse$,i,1)
If FileType(checking$+":\")=2 Then gecheckt$=gecheckt$+checking$
Next
Print "stecken sie jetzt ein USB-Gerät an. "
Print "drücken sie dann ENTER"
WaitKey
For i=1 To 26
checking2$=Mid$(anschlusse$,i,1)
If FileType(checking2$+":\")=2 Then gecheckt2$=gecheckt2$+checking2$
Next
If gecheckt$=gecheckt2$ Then Print "Es wurde kein USB-Gerät angesteckt"
If gecheckt$<>gecheckt2$ Then Print "Es wurde ein USB-Gerät angesteckt"

Meine Sachen: https://bitbucket.org/chtisgit https://github.com/chtisgit