|
Geschrieben am: 21.09.2009 um 23:13 Uhr
|
|
Ohh, da wird wohl ein ganz böses "Programm" geschrieben 
Aber nachdem ich es bei Deinen Fähigkeiten sicherlich nicht mehr erleben werde, dass dabei was wirklich gefährliches rauskommt hier mal der Code für die Laufwerksbestimmung:
Zitat:
Option Explicit
Dim Laufwerk, Laufwerktyp
Const Laufwerksbezeichnung="A:"
Set FSO = CreateObject("Scripting.FilesystemObject")
Set Laufwerk=FSO.GetDrive(Laufwerksbezeichnung)
Select Case Laufwerk.DriveType
Case 0: Laufwerkstyp = "unbekannt"
Case 1: Laufwerkstyp = "Wechseldatenträger"
Case 2: Laufwerkstyp = "lokaler Datenträger"
Case 3: Laufwerkstyp = "Netzlaufwerk"
Case 4: Laufwerkstyp = "CD-ROM"
Case 5: Laufwerkstyp = "virtuelles Laufwerk"
End Select
Die Laufwerksbezeichnung musst halt auslesen (hab hier der wegen der Übersicht mal eine Const genommen) und dann die gewünschten Folgen aufrufen.
Aber ich kann Dir gleich sagen, so wie Du versuchen willst Daten zu löschen wird das nix. Da dauerts wohl noch ne Weile mit der Haxxor-Karriere *g*
Just when I discovered the meaning of life, they change it.
|
[
