반응형
아래 코드는 특정 경로에 있는 폴더 내 모든 파일을 확인.
Option Explicit
Dim oFso
Dim oFolder
Dim oFile
Dim sFileName
' 특정 경로의 폴더 내 모든 파일을 확인
' path뒤에 경로만 바꿔주면 됌
Dim path
path = "C:\WDIR\EEVX.2.12\2_Update_list_file_export\projects\PCB\"
Set oFso = CreateObject("Scripting.FileSystemObject")
If (oFso.FolderExists(path)) Then
Set oFolder = oFso.GetFolder(pathDate)
For Each oFile in oFolder.Files
sFileName = oFile.name
wscript.echo sFileName
Next
End If
폴더를 제외한 파일만 확인함.
반응형