반응형

아래 코드는 특정 경로에 있는 폴더 내 모든 파일을 확인.

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

폴더를 제외한 파일만 확인함.

 

 

 

 

 

 

 

 

 

반응형

+ Recent posts