请教如何判断C D E F剩余空间软大分区中建立一个文件夹
本帖最后由 追梦虎 于 2010-1-3 19:17 编辑我先用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
for $m=1 to $n-1
if $s[$m]>$max Then
$max=$s[$m]
EndIf
next 本帖最后由 afan 于 2010-1-3 15:14 编辑
哦,看错了,再想想
$varN = DriveGetDrive( "FIXED" )
$N = 0
If NOT @error Then
For $i = 1 to $varN
if DriveSpaceFree ($varN[$i])>$n then
$n = drivespacefree($varN[$i])
$maxdir = $varN[$i]
endif
Next
endif
dircreate($maxdir&"\文件夹")
这样成不 本帖最后由 netegg 于 2010-1-3 14:56 编辑
dim $aArray= Drivegetdrive('fixed')
$space = DriveSpaceFree ($aArray )
$index = 1
for $i = 2 to $aArray
$space2 = DriveSpaceFree ($aArray[$i] )
if $space2 > $space then
$space = $space2
$index = $i
endif
next
msgbox('','', $aArray[$index]) 本帖最后由 顽固不化 于 2010-1-3 14:52 编辑
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
$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)&":\盘")
回复 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] = [['C:\', $c],['d:\', $d],['e:\', $e],['f:\', $f]]
$max = $s
For $m = 1 To $n - 1
If $s[$m] > $max Then
$max = $m
EndIf
Next
MsgBox(0, 0, $s[$max]) 本帖最后由 追梦虎 于 2010-1-3 19:23 编辑
谢谢各位，方法都不错。
页:
[1]