VBS 에서 지정 한 디 렉 터 리 의 파일 목록 을 어떻게 가 져 옵 니까?
dim FileName,fs,foldername
foldername = InputBox(" ", "VBS ")
If foldername = "" Then
wscript.quit
End If
Set fs = CreateObject("scripting.filesystemobject")
digui (foldername)'
msgbox FileName '
'
Function digui(path)
Set folder = fs.getfolder(path)
Set subfolders = folder.subfolders
Set Files = folder.Files
For Each i In Files
FileName=FileName & i.path & vbNewLine ' FileName
Next
For Each j In subfolders
digui (j.path) '
Next
End Function디 렉 터 리 에 있 는 파일 과 폴 더 집합 가 져 오기
Dim sFolder, sExt, message
sFolder = "F:\Programming\Applications\VBScript"
Dim fs, oFolder, oFiles, oSubFolders
set fs = CreateObject("Scripting.FileSystemObject")
set oFolder = fs.GetFolder(sFolder) '
set oSubFolders = oFolder.SubFolders '
for each folder in oSubFolders
message = " ：" & folder
MsgBox message
Next
set oFiles = oFolder.Files '
for each file in oFiles
sExt = fs.GetExtensionName(file) '
sExt = LCase(sExt) '
message = " ：" & file.Name & ", ：" & sExt ' ( , )
MsgBox message
Next예 를 들 어:folder=F:\Programming\\Applications\\VBScript\dd
folder.Name 을 통 해"dd"를 얻 을 수 있 습 니 다.
하위 디 렉 터 리 파일 개수 일괄 집계
@echo off&setlocal enabledelayedexpansion
cd.>dirfiles.txt
for /d %%a in (*.*) do (
set n=0
for /f %%B in ('dir /a-d /b /s "%%a"') do set /a n+=1
echo %%a !n! >>dirfiles.txt
)이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
[VBS] 이메일 보내기텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.
좋은 웹페이지 즐겨찾기
