|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(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
==============[바람돌이딸기님 글에 대한 답변입니다]==============
첨부파일 참고하세요...
==============[잡초님 글에 대한 답변입니다]==============
안녕하세요. 귀한 시간 내 주셔서 감사합니다.
해다 VBA 돌려보니 "perf_dskspc_hist" 가 sort되지만 최종적으로는 폴더 내에 있는 다른 파일이 선택되는 것을 보입니다. 계속 수정해 볼려고 하는데 잘 되지가 않네요~~ㅜ.ㅜ
20230314045900perf_dskspc_hist0.old.gz
20230315050300perf_dskspc_hist0.old.gz
20230317045900perf_dskspc_hist0.old.gz
최근날짜 파일 : 20230317045900file_asml_config_fab_if_show.gz
==============[바람돌이딸기님 글에 대한 답변입니다]==============
코드를 변경 및 수정하였으니 첨부파일 참고하여 주세요... |
|