请教如何判断C D E F剩余空间软大分区中建立一个文件夹

追梦虎

我先用drivespacefree（）判断C D E F的分区剩余空间的大小，得到了最大的数值，但数据要如何返回得知是哪个分区的？在剩余空间最大的分区下创建文件夹。
这是判断剩余空间的大小的代码，要如何修改才能创建文件夹到最大剩余空间的分区目录下？

dim $c,$d,$e,$f,$max
dim $n=4,$m
$c=drivespacefree("c:")
$d=drivespacefree("d:")
$e=drivespacefree("e:")
$f=drivespacefree("f:")
dim $s[$n]=[$c,$d,$e,$f]
$max=$s[0]
for $m=1 to $n-1
        if $s[$m]>$max Then
                $max=$s[$m]
        EndIf
next

sak47

哦,看错了,再想想

$varN = DriveGetDrive( "FIXED" )
$N = 0
If NOT @error Then
    For $i = 1 to $varN[0]
if DriveSpaceFree ($varN[$i])>$n then
$n = drivespacefree($varN[$i])
$maxdir = $varN[$i]
endif
     Next
endif
dircreate($maxdir&"\文件夹")

这样成不

netegg

[i=s] 本帖最后由 netegg 于 2010-1-3 14:56 编辑 [/i]

dim $aArray= Drivegetdrive('fixed')
$space = DriveSpaceFree ($aArray[1] )
$index = 1
for $i = 2 to $aArray[0]
  $space2 = DriveSpaceFree ($aArray[$i] )
  if $space2 > $space then
     $space = $space2
     $index = $i
  endif
next
msgbox('','', $aArray[$index])

顽固不化

Dim $c, $d, $e, $f, $max
Dim $n = 4, $m
$c = DriveSpaceFree("c:")
$d = DriveSpaceFree("d:")
$e = DriveSpaceFree("e:")
$f = DriveSpaceFree("f:")
Dim $s[$n] = [$c, $d, $e, $f]
$max = $s[0]
$Drv = 0
For $m = 1 To $n - 1
        If $s[$m] > $max Then
                $max = $s[$m]
                $Drv = $m
        EndIf
Next
$Drv=$Drv+1
$Ds="CDEF"
MsgBox(0,0,"剩余空间最大的是--"&StringMid($Ds,$Drv,1)&":\盘")

afan

回复 1# 追梦虎


    修改楼主的：

Dim $c, $d, $e, $f, $max, $n = 4, $m
$c = DriveSpaceFree("c:")
$d = DriveSpaceFree("d:")
$e = DriveSpaceFree("e:")
$f = DriveSpaceFree("f:")
Dim $s[$n][2] = [['C:\', $c],['d:\', $d],['e:\', $e],['f:\', $f]]
$max = $s[0][1]
For $m = 1 To $n - 1
        If $s[$m][1] > $max Then
                $max = $m
        EndIf
Next
MsgBox(0, 0, $s[$max][0])

追梦虎

谢谢各位，方法都不错。