如何返回 目录中 子文件夹 名字

[红衣老大]

假设
C:\test 下有 AAA BBB CCC TTT001[TTT开头+数字编号]


已知路径 C:\test 要求返回 ttt开头 文件夹的名称 应该只有一个

[都市夜猫]

* 假设只有一个 ttt 开头的文件夹，即使有多个也只返回最先找到的那一个

cRet = ''
cOldDir = sys(5) + curdir()
set defa to c:\test
if adir(aTemp, 'ttt*', 'D') > 0
  for ii = 1 to alen(aTemp,1)
    if at('D', aTemp[ii,5]) > 0
      cRet = aTemp[ii,1]
      exit
    endif
  endfor
endif
set defa to (cOldDir)

if empty(cRet)
  ? '没找到'
else
  ? cRet
endif

[十豆三]

lcDefaultPath=Sys(5)+Sys(2003)
Set Default To c:\test
nCount=Adir(aDirArray,'ttt*','D')
If nCount>0
	For I=1 To nCount
		Messagebox(aDirArray(I,1))
	Endfor
Else
	Messagebox('此目录下没有 ttt 开头的文件夹',48,'信息提示')
Endif
Set Default To (lcDefaultPath)

[wwwwb]

递归查询：
PUBLIC FF AS Character
FF=""
DO MyProc1 WITH "R:\TEMP"


PROCEDURE MyProc1
LPARAMETERS Folder
fso=CREATEOBJECT("Scripting.FileSystemObject")
objFolder = fso.GetFolder(Folder)
*k = k + objFolder.Files.Count

For Each objFolder In objFolder.SubFolders
?objFolder.NAME
IF UPPER(LEFT(objFolder.NAME,3))='TTT'
?objFolder.NAME
ENDIF
DO MyProc1 WITH objFolder
NEXT
ENDPROC

[红衣老大]

[Quote=引用 2 楼 apple_8180 的回复:]
VB code

lcDefaultPath=Sys(5)+Sys(2003)
Set Default To c:\test
nCount=Adir(aDirArray,'ttt*','D')
If nCount>0
For I=1 To nCount
Messagebox(aDirArray(I,1))
Endfor
Else
Mess……
[/Quote]

我使用了这个方法 比较简洁

lcDefaultPath=Sys(5)+Sys(2003)
和
Set Default To (lcDefaultPath)
是不是保护现场 的意思

[wwwwb]

建议用递归查询来解决，如果你的目录有N层的话

[红衣老大]

[Quote=引用 5 楼 wwwwb 的回复:]
建议用递归查询来解决，如果你的目录有N层的话
[/Quote]

谢谢 这次 只有一层 就不用递归了

下载在用