파일 목록 데이터를 가져올때 파일 해쉬도 불려올수 있는 방법이 있나요?

기능/도구
작성자
SDaxg
작성일
2021-09-27 14:01
조회
64
엑셀버전 : M365

운영체제 : 윈도우10

위의 사진처럼 폴더에 들어있는 파일 목록을 불러올때 파일 해쉬들도 같이 불러오고 싶은데 가능한가요? 그리고 다양한 해쉬들을 불러올수 있는지도 궁금합니다.

전체 2

  • 2021-09-27 16:33

    파워쿼리는 해쉬정보를 가져오지 않는 걸로 알고 있습니다

    VBA로 불러와야 할거에요


  • 2021-09-27 16:34

    구글에 검색해보니 관련 내용이 있는 것 같가 공유해드립니다

    How to get the MD5 hex hash for a file using VBA? - Stack Overflow

    Private Sub TestMD5()
        Debug.Print FileToMD5Hex("C:\test.txt")
        Debug.Print FileToSHA1Hex("C:\test.txt")
    End Sub
    
    Public Function FileToMD5Hex(sFileName As String) As String
        Dim enc
        Dim bytes
        Dim outstr As String
        Dim pos As Integer
        Set enc = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")
        'Convert the string to a byte array and hash it
        bytes = GetFileBytes(sFileName)
        bytes = enc.ComputeHash_2((bytes))
        'Convert the byte array to a hex string
        For pos = 1 To LenB(bytes)
            outstr = outstr & LCase(Right("0" & Hex(AscB(MidB(bytes, pos, 1))), 2))
        Next
        FileToMD5Hex = outstr
        Set enc = Nothing
    End Function
    
    Public Function FileToSHA1Hex(sFileName As String) As String
        Dim enc
        Dim bytes
        Dim outstr As String
        Dim pos As Integer
        Set enc = CreateObject("System.Security.Cryptography.SHA1CryptoServiceProvider")
        'Convert the string to a byte array and hash it
        bytes = GetFileBytes(sFileName)
        bytes = enc.ComputeHash_2((bytes))
        'Convert the byte array to a hex string
        For pos = 1 To LenB(bytes)
            outstr = outstr & LCase(Right("0" & Hex(AscB(MidB(bytes, pos, 1))), 2))
        Next
        FileToSHA1Hex = outstr 'Returns a 40 byte/character hex string
        Set enc = Nothing
    End Function
    
    Private Function GetFileBytes(ByVal path As String) As Byte()
        Dim lngFileNum As Long
        Dim bytRtnVal() As Byte
        lngFileNum = FreeFile
        If LenB(Dir(path)) Then ''// Does file exist?
            Open path For Binary Access Read As lngFileNum
            ReDim bytRtnVal(LOF(lngFileNum) - 1&) As Byte
            Get lngFileNum, , bytRtnVal
            Close lngFileNum
        Else
            Err.Raise 53
        End If
        GetFileBytes = bytRtnVal
        Erase bytRtnVal
    End Function

     


전체 4,261
번호 카테고리 제목 작성자 작성일 추천 조회
4245 함수/공식
New raw 데이터를 이용하여 복수 조건에 해당하는 데이터 나열하기 문의 (3)
신동 | 2021.10.22 | 추천 0 | 조회 41
신동 2021.10.22 0 41
4244 함수/공식
New if를 사용하여 값 참조하게하기 (3)
현표 | 2021.10.22 | 추천 0 | 조회 36
현표 2021.10.22 0 36
4243 차트/그래프
New 음영 셀만 그래프에 수치가 표기 되거나 강조되게 하는 방법이 있을까요? 첨부파일 (1)
은하상회 | 2021.10.22 | 추천 0 | 조회 21
은하상회 2021.10.22 0 21
4242 VBA
New Sheet간 이미지 복사 방법이 있을까요?..(셀병합, 범위..) 첨부파일
tu1541 | 2021.10.22 | 추천 0 | 조회 35
tu1541 2021.10.22 0 35
4241 문서서식
New 기초) 자동필터에서 와일드카드 검색 질문드립니다 (2)
월마리아 | 2021.10.22 | 추천 0 | 조회 31
월마리아 2021.10.22 0 31
4240 VBA
New 피벗테이블 필터자동 변경 문의드려요 ㅠㅠ 첨부파일 (1)
Jun0211 | 2021.10.21 | 추천 0 | 조회 34
Jun0211 2021.10.21 0 34
4239 함수/공식
New 셀 2개의 데이타를 ㄹ합치는 법 (4) 답변완료
마운틴 | 2021.10.21 | 추천 0 | 조회 48
마운틴 2021.10.21 0 48
4238 VBA
New 필터링된 값 붙여넣기 첨부파일 (8) 답변완료
지연 | 2021.10.21 | 추천 0 | 조회 53
지연 2021.10.21 0 53
4237 함수/공식
New 엑셀 수식을 부탁드립니다. 첨부파일 (1)
워싱턴 | 2021.10.21 | 추천 0 | 조회 40
워싱턴 2021.10.21 0 40
4236 VBA
New 도와주세요 첨부파일 (1)
현아 | 2021.10.21 | 추천 0 | 조회 35
현아 2021.10.21 0 35
4235 함수/공식
New 업체명으로 된 DB에서 업체명 + ~월 등 문자가 추가되었을때 DB에서 찾아오는 함수 수식 (3) 답변완료
이수철 | 2021.10.21 | 추천 0 | 조회 43
이수철 2021.10.21 0 43
4234 함수/공식
New 로우데이터에서 특정값을 찾아 값이 있을 경우와 없을 경우 결과 값을 지정하여 도출하는 방법이 궁금합니다. (1)
mysoul**** | 2021.10.21 | 추천 0 | 조회 30
mysoul**** 2021.10.21 0 30
4233 함수/공식
New x,y,z로 이루어진 방정식 두 개를 '해 찾기' 기능으로 풀 수 있을까요? (6)
고대하라 | 2021.10.21 | 추천 0 | 조회 46
고대하라 2021.10.21 0 46
4232 기능/도구
New 셀선택시 설명 팝업 (6) 답변완료
HYODONG | 2021.10.21 | 추천 0 | 조회 36
HYODONG 2021.10.21 0 36
4231 피벗테이블
New 정규화에 대한 문의 첨부파일 (1)
광개토태왕 | 2021.10.21 | 추천 0 | 조회 31
광개토태왕 2021.10.21 0 31
4230 차트/그래프
New 원형 차트에 슬라이서 연결 시 표시 방법 문의 드립니다. (1)
이찬우 | 2021.10.21 | 추천 0 | 조회 25
이찬우 2021.10.21 0 25
4229 함수/공식
New 대량의 데이터를 가지고 있는 다른 시트에서 중복값찾기 (6) 답변완료
라운 | 2021.10.21 | 추천 0 | 조회 54
라운 2021.10.21 0 54
4228 VBA
New 시간이 겹치거나 겹친 시간에 동일 이름이 중복될 경우 찾을려면 어떻게 하면 될까요? (4)
셀라푸우 | 2021.10.20 | 추천 0 | 조회 42
셀라푸우 2021.10.20 0 42
4227 VBA
New 데이터 범위설정 매크로 수식 (2)
젬마 | 2021.10.20 | 추천 0 | 조회 53
젬마 2021.10.20 0 53
4226 피벗테이블
New 피벗테이블 구성 (2)
광개토태왕 | 2021.10.20 | 추천 0 | 조회 45
광개토태왕 2021.10.20 0 45
4225 VBA
New (초보..)vba 웹크롤링(selenium 사용) 문자를 읽어오지않아 문의드립니다!! (4)
윌터너 | 2021.10.20 | 추천 0 | 조회 37
윌터너 2021.10.20 0 37
4224 함수/공식
New 함수 자동입력?
흑형 | 2021.10.20 | 추천 0 | 조회 58
흑형 2021.10.20 0 58
4223 기능/도구
구글 스프레드시트 이미지 인쇄 문제 (1)
민 쌤 | 2021.10.20 | 추천 0 | 조회 31
민 쌤 2021.10.20 0 31
4222 파워쿼리/피벗
파워쿼리 입문입니다. 시트 합치는 방법 질문드립니다. 첨부파일 (2)
월마리아 | 2021.10.19 | 추천 0 | 조회 59
월마리아 2021.10.19 0 59
4221 함수/공식
공부용 일정표 관련해서 자동 생성 질문드립니다.
1234느린열차 | 2021.10.19 | 추천 0 | 조회 34
1234느린열차 2021.10.19 0 34
4220 함수/공식
변화되는 값 추적하기 첨부파일 (1)
아자사랑 | 2021.10.19 | 추천 0 | 조회 52
아자사랑 2021.10.19 0 52
4219 함수/공식
셀에 포함된 특정단어 추출 함수 첨부파일 (6) 답변완료
마운틴 | 2021.10.19 | 추천 0 | 조회 80
마운틴 2021.10.19 0 80
4218 피벗테이블
피벗테이블에서 열 (레이블) 상위 10% 필터링 방법 문의 첨부파일 (3)
김성현19 | 2021.10.19 | 추천 0 | 조회 39
김성현19 2021.10.19 0 39
4217 함수/공식
다중조건으로 매출 순위 구하기 첨부파일 (8) 답변완료
newstar | 2021.10.19 | 추천 0 | 조회 60
newstar 2021.10.19 0 60
4216 파워쿼리/피벗
Expression.Error: Table 형식의 값을 Binary 형식으로 변환할 수 없습니다 첨부파일 (3)
슝슝 | 2021.10.19 | 추천 0 | 조회 32
슝슝 2021.10.19 0 32