위젯 용량체크 프로그램 소스

Private Sub Command1_Click()

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

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

Effect = FileLen(App.Path & "\Effect.wz")

Etc = FileLen(App.Path & "\Etc.wz")

Item = FileLen(App.Path & "\Item.wz")

List = FileLen(App.Path & "\List.wz")

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

Mob = FileLen(App.Path & "\Mob.wz")

Morph = FileLen(App.Path & "\Morph.wz")

Npc = FileLen(App.Path & "\Npc.wz")

Quest = FileLen(App.Path & "\Quest.wz")

Reactor = FileLen(App.Path & "\Reactor.wz")

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

Sound = FileLen(App.Path & "\Sound.wz")

Stringt = FileLen(App.Path & "\String.wz")

TamingMob = FileLen(App.Path & "\TamingMob.wz")

UI = FileLen(App.Path & "\UI.wz")

MsgBox "위젯 용량이 정상적으로 추출되었습니다!", vbInformation, "추출 완료!"

End Sub

Private Sub Command2_Click()

Open App.Path & "\위젯체크.txt" For Output As #1

Print #1, "[Base.wz=" & Base & "]"

Print #1, "[Character.wz=" & Character & "]"

Print #1, "[Effect.wz=" & Effect & "]"

Print #1, "[Etc.wz=" & Etc & "]"

Print #1, "[Item.wz=" & Item & "]"

Print #1, "[List.wz=" & List & "]"

Print #1, "[Map.wz=" & Map & "]"

Print #1, "[Mob.wz=" & Mob & "]"

Print #1, "[Morph.wz=" & Morph & "]"

Print #1, "[Npc.wz=" & Npc & "]"

Print #1, "[Quest.wz=" & Quest & "]"

Print #1, "[Reactor.wz=" & Reactor & "]"

Print #1, "[Skill.wz=" & Skill & "]"

Print #1, "[Sound.wz=" & Sound & "]"

Print #1, "[String.wz=" & Stringt & "]"

Print #1, "[TamingMob.wz=" & TamingMob & "]"

Print #1, "[UI.wz=" & UI & "]"

Close #1

MsgBox "성공적으로 위젯 용량체크 파일이 생성되었습니다!", vbInformation, "생성 완료!"

End Sub

Private Sub Form_Load()

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

Or Len(Dir("Character.wz")) = 0 _

Or Len(Dir("Effect.wz")) = 0 _

Or Len(Dir("Etc.wz")) = 0 _

Or Len(Dir("Item.wz")) = 0 _

Or Len(Dir("List.wz")) = 0 _

Or Len(Dir("Map.wz")) = 0 _

Or Len(Dir("Mob.wz")) = 0 _

Or Len(Dir("Morph.wz")) = 0 _

Or Len(Dir("Npc.wz")) = 0 _

Or Len(Dir("Quest.wz")) = 0 _

Or Len(Dir("Reactor.wz")) = 0 _

Or Len(Dir("Skill.wz")) = 0 _

Or Len(Dir("Sound.wz")) = 0 _

Or Len(Dir("String.wz")) = 0 _

Or Len(Dir("TamingMob.wz")) = 0 _

Or Len(Dir("UI.wz")) = 0 Then

MsgBox "클라이언트 폴더 내에서 프로그램을 실행하여 주십시오." & vbCrLf & vbCrLf & "일부 wz 파일이 존재하지 않습니다.", vbCritical, "에러"

End

End If

End Sub