Hallo,
hiermit könnt ihr euren USB Stick etwas besser verwalten.
Ich habe viele wichtige Programme drauf und deswegen kommt dies noch Professioneller rüber !
Hier das Skirpt:
Spoiler anzeigen
#include <GUIConstants.au3>
#include <File.au3>
#include <Array.au3>
;------------------------------
#include <WindowsConstants.au3>
#include <SendMessage.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
;------------------------------- -> Die Includes für den Ladebalken!
;####################### Balken ##########################
$Balken = GUICreate("Ladebalken", 545, 25, -1, -1, $WS_POPUP, $WS_EX_TOOLWINDOW)
$Progress1 = GUICtrlCreateProgress(0, 0, 545, 25)
;~ $hProgress = GUICtrlGetHandle($Progress1)
;~ _SendMessage($hProgress, $PBM_SETMARQUEE, True, 10)
GUISetState(@SW_SHOW)
;####################### Balken ##########################
$Name = IniRead ("StickInfo.ini", "Stick", "Name", "Error")
If $Name = "Error" Then
MsgBox (4 ,"Fehler", "Die StickInfo.ini konnte nicht ausgelesen werden! Oder es ist kein Name eingetragen!")
Exit
EndIf
$Username = IniRead ("StickInfo.ini", "Stick", "Nutzername", "Error")
If $Username = "Error" Then
MsgBox (4 ,"Fehler", "Die StickInfo.ini konnte nicht ausgelesen werden! Oder es ist kein Name eingetragen!")
Exit
EndIf
While 1
For $i=10 to 75
Sleep (150)
GUICtrlSetData ($Progress1,$i)
Next
$bGetBENNE = _GetBENNE()
For $i=75 to 100
Sleep (75)
GUICtrlSetData ($Progress1, $i)
Next
ExitLoop
WEnd
;~ $bGetBENNE = _GetBENNE()
If $bGetBENNE <> False Then
$Buchstabe = $bGetBENNE&"\"
GUIDelete ($Balken)
Else
MsgBox (1, "Fehler", "Bitte stecken sie den Stick ein! Er wurde nicht erkannt!")
Exit
EndIf
;##################### Stick Main ##################################
$StickMain = GUICreate($Username&"s USB Stick!", 625, 443, 323, 241)
$Label1 = GUICtrlCreateLabel("Kategorie", 168, 32, 298, 94)
GUICtrlSetFont(-1, 48, 800, 0, "Comic Sans MS")
$DVD = GUICtrlCreateButton("DVD etc.", 32, 152, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Festplatte = GUICtrlCreateButton("Festplatte", 224, 152, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Internet = GUICtrlCreateButton("Internet", 424, 152, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Sicherheit = GUICtrlCreateButton("Sicherheit", 24, 288, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Sonstiges = GUICtrlCreateButton("Sonstiges", 224, 288, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Images = GUICtrlCreateButton("Images", 424, 288, 177, 73, 0)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)
;####################################################################
;##################### Stick Child ##################################
$StickChild = GUICreate($Username&"s USB Stick!", 498, 188, 398, 390)
$Auswahl = GUICtrlCreateCombo("Auswählen!", 136, 40, 241, 25)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUICtrlSetCursor (-1, 0)
$AuswahlButton = GUICtrlCreateButton("Go!", 264, 88, 177, 73, 0)
GUICtrlSetFont(-1, 24, 800, 0, "Comic Sans MS")
$Back = GUICtrlCreateButton("Zurück", 56, 88, 177, 73, 0)
GUICtrlSetFont(-1, 22, 800, 0, "Comic Sans MS")
GUISetState(@SW_HIDE)
;####################################################################
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Back
GUISetState (@SW_HIDE, $StickChild)
GUISetState (@SW_SHOW, $StickMain)
GUICtrlSetData ($Auswahl, "")
Case $AuswahlButton
If GuiCtrlRead($Auswahl) <> "" Then
ShellExecute($Dir&"\"&GuiCtrlRead($Auswahl))
EndIF
Case $GUI_EVENT_CLOSE
Exit
Case $DVD
GUISetState (@SW_HIDE, $StickMain)
GUISetState (@SW_SHOW, $StickChild)
$Dir = $Buchstabe&"DVD etc"
$Dir_Combo = _FileListToArray($Dir)
If Not @error Then
For $i = 1 To Ubound($Dir_Combo)-1
If FileGetAttrib($Dir&"\"&$Dir_Combo[$i]) = "D" Then
GuiCtrlSetData($Auswahl, $Dir_Combo[$i])
EndIf
Next
EndIf
Case $Festplatte
GUISetState (@SW_HIDE, $StickMain)
GUISetState (@SW_SHOW, $StickChild)
$Dir = $Buchstabe&"Festplatte"
$Dir_Combo = _FileListToArray($Dir)
If Not @error Then
For $i = 1 To Ubound($Dir_Combo)-1
If FileGetAttrib($Dir&"\"&$Dir_Combo[$i]) = "D" Then
GuiCtrlSetData($Auswahl, $Dir_Combo[$i])
EndIf
Next
EndIf
Case $Internet
GUISetState (@SW_HIDE, $StickMain)
GUISetState (@SW_SHOW, $StickChild)
$Dir = $Buchstabe&"Internet"
$Dir_Combo = _FileListToArray($Dir)
If Not @error Then
For $i = 1 To Ubound($Dir_Combo)-1
If FileGetAttrib($Dir&"\"&$Dir_Combo[$i]) = "D" Then
GuiCtrlSetData($Auswahl, $Dir_Combo[$i])
EndIf
Next
EndIf
Case $Sicherheit
GUISetState (@SW_HIDE, $StickMain)
GUISetState (@SW_SHOW, $StickChild)
$Dir = $Buchstabe&"Sicherheit"
$Dir_Combo = _FileListToArray($Dir)
If Not @error Then
For $i = 1 To Ubound($Dir_Combo)-1
If FileGetAttrib($Dir&"\"&$Dir_Combo[$i]) = "D" Then
GuiCtrlSetData($Auswahl, $Dir_Combo[$i])
EndIf
Next
EndIf
Case $Sonstiges
GUISetState (@SW_HIDE, $StickMain)
GUISetState (@SW_SHOW, $StickChild)
$Dir = $Buchstabe&"Sonstiges"
$Dir_Combo = _FileListToArray($Dir)
If Not @error Then
For $i = 1 To Ubound($Dir_Combo)-1
If FileGetAttrib($Dir&"\"&$Dir_Combo[$i]) = "D" Then
GuiCtrlSetData($Auswahl, $Dir_Combo[$i])
EndIf
Next
EndIf
Case $Images
GUISetState (@SW_HIDE, $StickMain)
GUISetState (@SW_SHOW, $StickChild)
$Dir = $Buchstabe&"Images"
$Dir_Combo = _FileListToArray($Dir)
If Not @error Then
For $i = 1 To Ubound($Dir_Combo)-1
If FileGetAttrib($Dir&"\"&$Dir_Combo[$i]) = "D" Then
GuiCtrlSetData($Auswahl, $Dir_Combo[$i])
EndIf
Next
EndIf
EndSwitch
Sleep (100)
WEnd
Func _GetBENNE()
$aDGD = DriveGetDrive("REMOVABLE")
For $i = 1 To $aDGD[0]
If DriveGetLabel($aDGD[$i]) = $Name Then return $aDGD[$i]
Next
Return False
EndFunc
Dann auch noch die StickInfo.ini
Ihr könnt dann alles auf dem USB Stick in folgende Ordner sortieren!
-DVD etc
-Festplatte
-Internet
-Sicherheit
-Image
-Sonstiges
Danach könnt ihr die Ordner verstecken und der Stick sieht schön leer aus, jedoch kann man mit dem Programm dann ganz einfach seine Ordner verwalten.
Mfg
Benne