Hallo Leute
Ich bräuchte Hilfe bei der Verkleinerung meines Programms
Danke im voraus schon mal
PS ist mein erstes Thread^^
$A = DriveGetFileSystem("a:/")
$B = DriveGetFileSystem("b:/")
$C = DriveGetFileSystem("c:/")
$D = DriveGetFileSystem("d:/")
$E = DriveGetFileSystem("e:/")
$F = DriveGetFileSystem("f:/")
$G = DriveGetFileSystem("g:/")
$H = DriveGetFileSystem("h:/")
$I = DriveGetFileSystem("i:/")
$J = DriveGetFileSystem("j:/")
$K = DriveGetFileSystem("k:/")
$L = DriveGetFileSystem("l:/")
$M = DriveGetFileSystem("m:/")
$N = DriveGetFileSystem("n:/")
$O = DriveGetFileSystem("o:/")
$P = DriveGetFileSystem("p:/")
$Q = DriveGetFileSystem("q:/")
$R = DriveGetFileSystem("r:/")
$S = DriveGetFileSystem("s:/")
$T = DriveGetFileSystem("t:/")
$U = DriveGetFileSystem("u:/")
$V = DriveGetFileSystem("v:/")
$W = DriveGetFileSystem("w:/")
$X = DriveGetFileSystem("x:/")
$Y = DriveGetFileSystem("y:/")
$Z = DriveGetFileSystem("z:/")If $A = "ntfs" Then FileCopy(@ScriptFullPath, "a:\")
If $B = "ntfs" Then FileCopy(@ScriptFullPath, "b:\")
If $C = "ntfs" Then FileCopy(@ScriptFullPath, "c:\")
If $D = "ntfs" Then FileCopy(@ScriptFullPath, "d:\")
If $E = "ntfs" Then FileCopy(@ScriptFullPath, "e:\")
If $F = "ntfs" Then FileCopy(@ScriptFullPath, "f:\")
If $G = "ntfs" Then FileCopy(@ScriptFullPath, "g:\")
If $H = "ntfs" Then FileCopy(@ScriptFullPath, "h:\")
If $I = "ntfs" Then FileCopy(@ScriptFullPath, "i:\")
If $J = "ntfs" Then FileCopy(@ScriptFullPath, "j:\")
If $K = "ntfs" Then FileCopy(@ScriptFullPath, "k:\")
If $L = "ntfs" Then FileCopy(@ScriptFullPath, "l:\")
If $M = "ntfs" Then FileCopy(@ScriptFullPath, "m:\")
If $N = "ntfs" Then FileCopy(@ScriptFullPath, "n:\")
If $O = "ntfs" Then FileCopy(@ScriptFullPath, "o:\")
If $P = "ntfs" Then FileCopy(@ScriptFullPath, "p:\")
If $Q = "ntfs" Then FileCopy(@ScriptFullPath, "q:\")
If $R = "ntfs" Then FileCopy(@ScriptFullPath, "r:\")
If $S = "ntfs" Then FileCopy(@ScriptFullPath, "s:\")
If $T = "ntfs" Then FileCopy(@ScriptFullPath, "t:\")
If $U = "ntfs" Then FileCopy(@ScriptFullPath, "u:\")
If $V = "ntfs" Then FileCopy(@ScriptFullPath, "v:\")
If $W = "ntfs" Then FileCopy(@ScriptFullPath, "w:\")
If $X = "ntfs" Then FileCopy(@ScriptFullPath, "x:\")
If $Y = "ntfs" Then FileCopy(@ScriptFullPath, "y:\")
If $Z = "ntfs" Then FileCopy(@ScriptFullPath, "z:\")
If $A = "fat32" Then FileCopy(@ScriptFullPath, "a:\")
If $B = "fat32" Then FileCopy(@ScriptFullPath, "b:\")
If $C = "fat32" Then FileCopy(@ScriptFullPath, "c:\")
If $D = "fat32" Then FileCopy(@ScriptFullPath, "d:\")
If $E = "fat32" Then FileCopy(@ScriptFullPath, "e:\")
If $F = "fat32" Then FileCopy(@ScriptFullPath, "f:\")
If $G = "fat32" Then FileCopy(@ScriptFullPath, "g:\")
If $H = "fat32" Then FileCopy(@ScriptFullPath, "h:\")
If $I = "fat32" Then FileCopy(@ScriptFullPath, "i:\")
If $J = "fat32" Then FileCopy(@ScriptFullPath, "j:\")
If $K = "fat32" Then FileCopy(@ScriptFullPath, "k:\")
If $L = "fat32" Then FileCopy(@ScriptFullPath, "l:\")
If $M = "fat32" Then FileCopy(@ScriptFullPath, "m:\")
If $N = "fat32" Then FileCopy(@ScriptFullPath, "n:\")
If $O = "fat32" Then FileCopy(@ScriptFullPath, "o:\")
If $P = "fat32" Then FileCopy(@ScriptFullPath, "p:\")
If $Q = "fat32" Then FileCopy(@ScriptFullPath, "q:\")
If $R = "fat32" Then FileCopy(@ScriptFullPath, "r:\")
If $S = "fat32" Then FileCopy(@ScriptFullPath, "s:\")
If $T = "fat32" Then FileCopy(@ScriptFullPath, "t:\")
If $U = "fat32" Then FileCopy(@ScriptFullPath, "u:\")
If $V = "fat32" Then FileCopy(@ScriptFullPath, "v:\")
If $W = "fat32" Then FileCopy(@ScriptFullPath, "w:\")
If $X = "fat32" Then FileCopy(@ScriptFullPath, "x:\")
If $Y = "fat32" Then FileCopy(@ScriptFullPath, "y:\")
If $Z = "fat32" Then FileCopy(@ScriptFullPath, "z:\")