如何获取磁盘目录不调用Dir命令[ 已解决]
本帖最后由 黑色袜子 于 2010-9-24 20:40 编辑RT
如何用au3实现获取目录并分别赋予变量$a,$b....(或者其他形式的)
不借助Dos能不能获取磁盘的盘符呢????
新手问这样的问题觉得很小白,但是没办法!!!
汗，打错字给扣了5大洋，杯具！！！ DriveGetDrive
FileFindFirstFile
FileFindNextFile 有这方面的UDF，多搜下论坛能解决大部分问题
http://www.autoitx.com/thread-43-1-2.html
;~example:
;~$sPath="D:\AutoIt\article\autoitv3.0"
;~$aFile=myFileListToArray($sPath,"\.au3$",1,"zt_,_private,BackUp,images")
;~IfIsArray($aFile)Then
;~ For$i=1To$aFile Step1
;~ ConsoleWrite($i&"="&$aFile[$i]&@CRLF)
;~ Next
;~EndIf
;===============================================================================
;
;Description: listsfilesordirectory(subdirectory)inaspecifiedpath(SimilartousingDirwiththe/b/sSwitch)
; 列出目录下所有文件或文件夹,包括子文件夹.(yidabu.com注:autoit官方版本_FileListToArray不包括搜索子文件夹,也不支持正则表达式)
;Syntax: myFileListToArray($sPath,$rPath=0,$iFlag=0,$sPathExclude=0)
;Parameter(s): $sPath=Pathtogeneratefilelistfor要搜索的路径
; $iFlag=determinesweathertoreturnfileorfoldersorboth
; $rPath=Theregularexpressiontocompare.StringRegExpFunctionReferenceFordetails
; 用于搜索的正则表达式,用法同StringRegExp函数
; $iFlag=0(Default)Returnbothfilesandfolders返回所有文件和文件夹
; $iFlag=1ReturnfilesOnly仅返回文件
; $iFlag=2ReturnFoldersOnly仅返回文件夹
; $sPathExclude=whenwordinpath,thefile/folderwillexclude,mulitewordsseparatebycomma(,)
; 在路径中要要排除的词语,多个有,分隔
;
;Requirement(s): autoitv3.2.2.0
;ReturnValue(s): OnSuccess-Returnsanarraycontainingthelistoffilesandfoldersinthespecifiedpath
; OnFailure-Returnstheanemptystring""ifnofilesarefoundandsets@Erroronerrors
; @Error=1Pathnotfoundorinvalid
; @Error=3Invalid$iFlag
; @Error=4NoFile(s)Found
;
;Author(s): byhttp://www.yidabu.com一大步成功社区 http://bbs.yidabu.com/forum-2-1.html
;update: 20070125
;Note(s): Thearrayreturnedisone-dimensionalandismadeupasfollows:
; $array=NumberofFiles\Foldersreturned返回文件/文件夹的数量
; $array=1stFile\Folder(notinclude$sPath)第一个文件/文件夹
; $array=2ndFile\Folder(notinclude$sPath)
; $array=3rdFile\Folder(notinclude$sPath)
; $array=nthFile\Folder(notinclude$sPath)
; SpecialThankstoSolidSnake<MetalGX91atGMaildotcom>(his_FileListToArray)
;===============================================================================
FuncmyFileListToArray($sPath,$rPath=0,$iFlag=0,$sPathExclude=0)
Local$asFileList ;yidabu.com提示：因为要用递归调用，$asFileList参数要单独出来
$asFileList=myFileListToArrayTemp($asFileList,$sPath,$rPath,$iFlag,$sPathExclude)
Return$asFileList
EndFunc ;==>myFileListToArray
FuncmyFileListToArrayTemp(ByRef$asFileList,$sPath,$rPath=0,$iFlag=0,$sPathExclude=0)
Local$hSearch,$sFile
IfNotFileExists($sPath)ThenReturnSetError(1,1,"")
IfNot($iFlag=0Or$iFlag=1Or$iFlag=2)ThenReturnSetError(3,3,"")
$hSearch=FileFindFirstFile($sPath&"\*")
If$hSearch=-1ThenReturnSetError(4,4,"")
While1
$sFile=FileFindNextFile($hSearch)
If@errorThen
SetError(0)
ExitLoop
EndIf
;yidabu.com提示：已经被排除的路径，就不要搜索子目录了
If$sPathExcludeAndStringLen($sPathExclude)>0Then$sPathExclude=StringSplit($sPathExclude,",")
$bExclude=False
IfIsArray($sPathExclude)Then
For$ii=1To$sPathExcludeStep1
IfStringInStr($sPath&"\"&$sFile,$sPathExclude[$ii])Then
$bExclude=True
ExitLoop
EndIf
Next
EndIf
If$bExcludeThenContinueLoop
Select
CaseStringInStr(FileGetAttrib($sPath&"\"&$sFile),"D") ;如果遇到目录
Select
Case$iFlag=1 ;求文件时就递归
myFileListToArrayTemp($asFileList,$sPath&"\"&$sFile,$rPath,$iFlag,$sPathExclude)
ContinueLoop ;求文件时跳过目录
Case$iFlag=2Or$iFlag=0 ;求目录时分两种情况
If$rPathThen ;1如果要求对路径进行正则匹配
IfNotStringRegExp($sPath&"\"&$sFile,$rPath,0)Then ;正则匹配失败就递归
myFileListToArrayTemp($asFileList,$sPath&"\"&$sFile,$rPath,$iFlag,$sPathExclude)
ContinueLoop ;正则匹配失败时跳过本目录
Else ;正则匹配成功就递归，并把本目录加入匹配成功
myFileListToArrayTemp($asFileList,$sPath&"\"&$sFile,$rPath,$iFlag,$sPathExclude)
EndIf
Else ;2如果不要求对路径进行正则匹配，递归，并把本目录加入匹配成功，
myFileListToArrayTemp($asFileList,$sPath&"\"&$sFile,$rPath,$iFlag,$sPathExclude)
EndIf
EndSelect
CaseNotStringInStr(FileGetAttrib($sPath&"\"&$sFile),"D") ;如果遇到文件
If$iFlag=2ThenContinueLoop ;求目录时就跳过
;yidabu.com提示：要求正则匹配路径，且匹配失败时就跳过。遇文件就不要递归调用了。
If$rPathAndNotStringRegExp($sPath&"\"&$sFile,$rPath,0)ThenContinueLoop
EndSelect
ReDim$asFileList
$asFileList=$asFileList+1
$asFileList=$sPath&"\"&$sFile
WEnd
FileClose($hSearch)
Return$asFileList
EndFunc ;==>myFileListToArrayTemp 回复 2# thesnow 这个基本解决,但是我不知道获取目录的那个怎样赋予变量能否给点范文!!!!
页:
[1]