Laufwerke formatieren und neu beschreien

Hallo alle zusammen,

bin absoluter Neuling und brauche ein bischen Hilfe!!!

Ich möchte mehrere USB Wechseldatenträger (USB 1.1) formatieren und anschliessend alle mit dem Inhalt eines Orners beschreiben.

Dazu habe ich folgendes geschrieben:

;alle Wechseldatenträger ermitteln
$var = DriveGetDrive( "removable" )
If NOT @error Then
    For $i = 1 to $var
		;Speichergröße der Datenträger ermitteln
		$x = DriveSpaceTotal($i)
		;Liegt die Speichergröße zwischen 30 MB und 4 GB 
		;soll das Laufwerk gelöscht werden
		if  $x > 30 and $x < 4000 Then
				FileDelete($i)
 		EndIf
	next
	;Speichergröße der Datenträger ermitteln
	For $i = 1 to $var
		$x = DriveSpaceTotal($i)
		;Liegt die Speichergröße zwischen 30 MB und 4 GB soll das Laufwerk mit dem Inhalt
		;des Ordners "Kopier_Programm" beschrieben werden
		if  $x > 30 and $x < 4000 Then
			DirCopy("D:\Kopier_Programm", $i, 1)
		EndIf
    Next
	MsgBox(0,"   Kopier Programm  ",   "         Fertig        ")
EndIf

Das funktionier soweit auch nicht schlecht!!

Und jetzt zu meinem Problem:

1. Beim Löschen werden nur Dateien gelöscht. Ordner die sich auf dem
auf dem Laufwerk befinden werden nicht gelöscht.

2. Beim beschreiben der Laufwerke, werden diese nacheinander
beschieben. Dadurch dauert der Kopiervorgang sehr lange (Alle Lauf
werke sind USB 1.1).
Um Zeit zu gewinnen würde ich gerne alle Laufwerke parallel
beschreiben. (Bei WINXP ist das möglich).

3. Wie kann ich ein Laufwerk nicht nur löschen, sondern auch formatieren?

Vielen Dank für Eure Hilfe.

Moin,

hab hier nen Script gefunden zum formatieren:

#include <Constants.au3>
SplashTextOn("","Formatting Drive/s" & @CRLF & "Please Wait..","300","100","-1","-1",33,"Courier New","20","700")
Sleep (1000)
$var = DriveGetType( "D:\" )

If $var = "Fixed" Then
DriveSetLabel("D:\", "Y")
$pid = Run(@ComSpec & " /c " & 'format D: /v:Disk2 /fs:fat32 /q /x', "",@SW_HIDE, $STDIN_CHILD)
StdinWrite($pid, "Y" & @CRLF & "Y" & @CRLF)
ProcessWaitClose($pid)
EndIf

$var2 = DriveGetType( "E:\" )

If $var2 = "Fixed" Then
DriveSetLabel("E:\", "Y")
$pid = Run(@ComSpec & " /c " & 'format E: /v:Disk3 /fs:fat32 /q /x', "",@SW_HIDE, $STDIN_CHILD)
StdinWrite($pid, "Y" & @CRLF & "Y" & @CRLF)
ProcessWaitClose($pid)
EndIf

$var3 = DriveGetType( "F:\" )

If $var3 = "Fixed" Then
DriveSetLabel("F:\", "Y")
$pid = Run(@ComSpec & " /c " & 'format F: /v:Disk4 /fs:fat32 /q /x', "",@SW_HIDE, $STDIN_CHILD)
StdinWrite($pid, "Y" & @CRLF & "Y" & @CRLF)
ProcessWaitClose($pid)
EndIf
SplashTextOn("","Formatting Complete","350","100","-1","-1",33,"Courier New","20","700")
Sleep (3000)
Exit

Sollte dir wohl helfen

Mfg

Analyzer

Hallo zusammen,

vielen Dank für die herzliche Aufnahme und den schnellen Antworten!!! :kette:

Werde beide Vorschläge ausprobieren und Bericht erstatten!

mfg

hallo gtaspider und Analyzer,

beide Vorschläge haben in Bezug auf die Formatierung nicht zum gewünschten Ergebnis geführt!!!

Das gleichzeitige bespielen der Laufwerke funktioniert einwandfrei!!!

If $x > 30 And $x < 4000 Then
                        MsgBox(0,"",$var[$i])
                        $pid = Run(@ComSpec & " /c " & 'format '&$var[$i]&' /q /x', "",@SW_HIDE, 1)
                        StdinWrite($pid, "Y" & @CRLF & "Y" & @CRLF & "N"& @CRLF)
                        While ProcessExists($pid)
                                Sleep(100)
                        WEnd

Dieser Code hat keinen Effekt! Der USB Stick wird nicht formatiert. Habe leider keine Ahnung warum es nicht funktioniert :hammer:

Dann habe ich den Code wie folgend geändert:

If $x > 30 And $x < 4000 Then
                        $pid = Run(@ComSpec & ' /c format '&$var[$i] &' /v:USB-Stick /fs:fat32 /q /x ', "",$STDIN_CHILD)
						sleep(100)
						StdinWrite($pid, Send("{ENTER}"))
						ProcessWaitClose($pid)
                        While ProcessExists($pid)
                                Sleep(100)
                        WEnd
					EndIf

Jetzt öffnet sich die Eingabeaufforderung und ich kann den kompl. Ablauf der Formatierung auf den Bildschirm beobachten.

Ich habe mir das Ganze zwar nicht so vorgestellt, aber immerhin - es funktioniert.

Kann mir jemand sagen warum die Formatierung mit dem ersten Code bei mir nicht funktioniert????

mfg

Sorry Leute,

Der Befehl:

if $x > 30 And $x < 4000 Then
MsgBox(0,"",$var[$i])
$pid = Run(@ComSpec & " /c " & 'format ' & $var[$i] & ' /q /y', "",@SW_HIDE, 1); mit "/y" wird keine Bestätigung gefordert
While ProcessExists($pid)
Sleep(100)
WEnd

funktioniert bei mir nicht. Ich Bekomme folgende Fehlermeldung (Siehe Anhang).

Ändere ich den Befehl wie folgt:

$pid = Run(@ComSpec & " /c " & 'format ' & $var[$i] & '/v:USB-Stick /fs:fat32 /q /y', "",@SW_HIDE, 1)

erscheind die Fehlermeldung nicht, aber der Stick wird nicht formatiert.

Hat jemand eine Ahnung warum???

mfg