Tastendruck

[EDN Admin]

Hallo,
Ich habe vor kurzem meiner externen Festplatte Order gefunden die ich nicht lÃschen kann. Ich habe im Internet tools gesuch und gefunden mit denen man auch solche Order lÃschen kann. Also habe ich mir gedacht, wenn das geht, versuch ich doch mal
selber so ein Programm zu schreiben, da ich vor einiger Zeit mich mal in der Schule mit VB beschÃftigt hatte. Kann ja nicht so schwer sein Jetzt stecke ich jedoch fest. Mein Problem ist folgendes:<br/>
Wenn das finden des zu lÃschenden Ordners fehgeschlagen ist, soll der Benutzer gefragt werden, ob er es erneut versuchen wolle. Die Antwortaufnahme soll per Tastendruck geschehen. Ich weià jedoch nicht wie ich die Eingabe auf der Tastertur abfrage.
Ich hoffe ich habe mich verstÃndlich genug ausgedrÃckt. Danke schon mal im Vorraus<br/>
<br/>
Hier der Code:
Option Explicit On<br/>
<br/>
Public Class <br/>
Dim location As String<br/>
Dim iCount As Integer<br/>
<br/>
Sub main()<br/>
<br/>
location = inputbox("Geben sie den zu lÃschenden Orderpfad an")<br/>
Do Until iCount = 1<br/>
If IO.directory.exists = True Then<br/>
IO.directory.kill(location)<br/>
msgbox("Order wurde gelÃscht")<br/>
icount = icount + 1<br/>
Else<br/>
msgbox("Orderpfad inkorekt. Wollen sie es erneut versuchen?" a "JA(Y)/NEIN(N)")<br/>
<br/>
<br/>
End If<br/>
Loop<br/>
End Class<br/>
<br/>


View the full article