위젯 용량체크 모듈

'wz 파일의 용량을 보려면 속성 -> 크기에서 바이트를 읽으면 된다.

'프로그램 경로에 반드시 wz 파일이 있어야 합니다.

Function WzChecking()

Dim SkillwzByte As Long

Dim BasewzByte As Long

Dim CharacterwzByte As Long

Dim MapwzByte As Long

'wz 파일의 용량 설정

SkillwzByte = 110082192

BasewzByte = 6540

CharacterwzByte = 367150412

MapwzByte = 874505709

WzChecking = False

If Len(Dir("Skill.wz")) = 0 Then

MsgBox "폴더 내에 Skill.wz가 없습니다!", vbExclamation, "에러!": Exit Function

End If

If Len(Dir("Base.wz")) = 0 Then

MsgBox "폴더 내에 Base.wz가 없습니다!", vbExclamation, "에러!": Exit Function

End If

If Len(Dir("Character.wz")) = 0 Then

MsgBox "폴더 내에 Character.wz가 없습니다!", vbExclamation, "에러!": Exit Function

End If

If Len(Dir("Map.wz")) = 0 Then

MsgBox "폴더 내에 Map.wz가 없습니다!", vbExclamation, "에러!": Exit Function

End If

If FileLen(App.Path & "\Skill.wz") = SkillwzByte Then

Else

MsgBox "Skill.wz 파일의 용량이 다릅니다." & vbCrLf & vbCrLf & "파일이 손상되었거나 wz가 변조되었습니다. 다시 다운로드 해주세요.", vbExclamation, "경고!": Exit Function

End If

If FileLen(App.Path & "\Base.wz") = BasewzByte Then

Else

MsgBox "Base.wz 파일의 용량이 다릅니다." & vbCrLf & vbCrLf & "파일이 손상되었거나 wz가 변조되었습니다. 다시 다운로드 해주세요.", vbExclamation, "경고!": Exit Function

End If

If FileLen(App.Path & "\Character.wz") = CharacterwzByte Then

Else

MsgBox "Character.wz 파일의 용량이 다릅니다." & vbCrLf & vbCrLf & "파일이 손상되었거나 wz가 변조되었습니다. 다시 다운로드 해주세요.", vbExclamation, "경고!": Exit Function

End If

If FileLen(App.Path & "\Map.wz") = MapwzByte Then

WzChecking = True

Else

MsgBox "Map.wz 파일의 용량이 다릅니다." & vbCrLf & vbCrLf & "파일이 손상되었거나 wz가 변조되었습니다. 다시 다운로드 해주세요.", vbExclamation, "경고!": Exit Function

End If

End Function