|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 365
* 아래줄에 질문을 작성하세요 >>
안녕하세요. 업무를 위해 하기 시나리오를 가지는 VBA를 짜고자 합니다.
1. 소스 폴더 파일 중 "YYYYMMDDhhmmssperf_dskspc_hist0.old.gz을 가지는 파일만 검색
2. 검색된 파일 중 가장 최신에 만들어진 파일 하나만 최종적으로 선택
3. 선택된 파일을 목적 폴더로 이동
---------------------------------------------------
하기와 같이 목적 폴더를 만드는 code 작성 후
' make folder in c:/localdata/Temp
Sub makeFolder()
If Dir("c:\localdata\Temp", vbDirectory) = "" Then
MkDir ("c:\localdata\Temp")
End If
End Sub
------------------------------------------------
원하는 파일만 골라내는 code까지는 하기와 같이 작성을 하였습니다.
Sub Filter_hist()
Dim Exe As String
Dim File As String
Dim Filelist_count As Integer
Path = "\\filerepository.asml.com\FileRepo\ALL\AO72\usr\asm\atl.0000\CS\"
Exe = "*" & "perf_dskspc_hist" & "*"
File = Dir(Path & "\" & Exe)
Do While File <> ""
Debug.Print File
File = Dir
Loop
End Sub
---------------------------
실행을 하면 하기와 같이 여러 파일이 검색되는 여기서 가장 최근의 날짜를 가지는 파일 "20230315050300perf_dskspc_hist0.old.gz" 을 목적 폴더로 옮기고자 하는데 마지막 파일만을 골라 낼 수가 없네요.
하루 종을 이런저런 걸 해봤지만 되지가 않습니다. ㅠ.ㅠ
부족한 저를 살려주세요~~ㅜ.ㅜ
20230310050500perf_dskspc_hist0.old.gz
20230312050500perf_dskspc_hist0.old.gz
20230313050400perf_dskspc_hist0.old.gz
20230314045900perf_dskspc_hist0.old.gz
20230315050300perf_dskspc_hist0.old.gz |
|