bingxing8000 发表于 2011-2-11 11:03:17

代码简化

本帖最后由 bingxing8000 于 2011-2-11 11:05 编辑

Dim $c1,$c2,$c3
$c1 = DriveSpaceFree( "c:\" )                            ;c盘剩余空间
$c2 = DriveSpaceTotal( "c:\" )
$c3=$c1/$c2*100
MsgBox(0,"c盘剩余空间",$c3& "%" )

以上代码可以简化吗？
就是说只设一个变量就可以得出 C盘剩余的百分比

haodd 发表于 2011-2-11 13:11:55

MsgBox(0,"c盘剩余空间",DriveSpaceFree("c:\")/DriveSpaceTotal( "c:\" )*100 & "%" )

netegg 发表于 2011-2-11 13:12:39

MsgBox(0,"c盘剩余空间", string(DriveSpaceFree( "c:\" ) / DriveSpaceTotal( "c:\" ) *100) & "%" )

lpxx 发表于 2011-2-11 13:58:56

MsgBox(0,"c盘剩余空间",DriveSpaceFree("c:\")/DriveSpaceTotal( "c:\" )*100 & "%" )

{:face (411):}

haijie1223 发表于 2011-2-11 14:20:11

学习了很不错的

Hen5ei 发表于 2011-2-11 14:33:10

MsgBox(0,"c盘剩余空间", string(DriveSpaceFree( "c:\" ) / DriveSpaceTotal( "c:\" ) *100) & "%" ){:face (427):}

menfan1 发表于 2011-2-11 14:43:31

MsgBox(0,"c盘剩余空间", String(Round(DriveSpaceFree( "c:\" ) / DriveSpaceTotal( "c:\" ) *100,3 )) & "%" )

bingxing8000 发表于 2011-2-11 15:45:18

谢谢大家了~！！
页: [1]
查看完整版本: 代码简化