Friday, July 25, 2008

Pusingnya...

udah berapa ari nyoba + nyari source code buat handling error waktu lagi looping. tapi kaga dapet²..
pusing...
sebenarnya gue cuma kembangin loopingnya aja, tapi errornya cuma bisa ke handle 1 kali aja :? jadi kalo error lagi, dia langsung run time error.. alamakkkkkkkkkkkkk

mana berapa ari ni mual melulu kaga tau kenapa T_T perasaan pengen muntah.. haduh bisa ampe kaga ada napsu makan loh :( tambah lagi idung mupet, tenggorokan gatel², amit² dah.. cuaca lagi jelek ato gue panas dalam yah :(

- update -

ari ini dah nyoba source code di komputer gue sendiri.. tapi kaga tau d jalan apa kaga di komputer user -_-" semoga aja jalan.. resultnya baru bisa diliat senin depan..

ini source codenya :mrgreen:


On Error GoTo errHandler
Dim fs, f, f1, fc, s, a, b, c, fill
Set fs = New FileSystemObject
Set f = fs.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 In fc
s = f1.Name
Set fill = fso.GetFolder("//cctv/cctv/" & s & "")
kmrn = Date - 1
tempKmrn = Format(kmrn, "mmdd")
If fso.FolderExists("//cctv/cctv/" & s & "") Then
If fso.FolderExists("//cctv/cctv/" & s & "/" & tempKmrn & "") Then
If fso.FolderExists("D:\cctv\" & s & "") Then
fso.CreateFolder ("D:\cctv\" & s & "\" & tempKmrn & "")
fso.CopyFolder ("//cctv/cctv/" & s & "/" & tempKmrn & ""), "D:\cctv\" & s & "\" & tempKmrn & "", True
lstAction.AddItem ("" & s & " copy success ! " & Date & " " & Time & "")
Else
fso.CreateFolder ("D:\cctv\" & s & "")
fso.CreateFolder ("D:\cctv\" & s & "\" & tempKmrn & "")
fso.CopyFolder ("//cctv/cctv/" & s & "/" & tempKmrn & ""), "D:\cctv\" & s & "\" & tempKmrn & "", True
lstAction.AddItem ("" & s & " copy success ! " & Date & " " & Time & "")
End If
Else
lstErr.AddItem ("" & s & " " & tempKmrn & " NOT FOUND!!" & Date & " " & Time & "")
End If
Else
lstErr.AddItem ("" & s & " " & Err.Number & " " & Err.Description & "" & Date & " " & Time & "")
End If
Next


errHandler:
If Err.Number = 20 Then
Err.Clear
ElseIf Err.Number = 0 Then
Err.Clear
ElseIf Err.Number <> 0 And Err.Number <> 20 Then
lstErr.AddItem ("" & s & " " & Err.Number & ":" & Err.Description & " " & Date & " " & Time & "")
Err.Clear
Resume Next
End If

moga aja d jalan --" hasil berhari²

2 comments:

  1. hihihi komen ahhhhhhhhhhhh =))
    moso ollo nenekkkkkkkkkkkkk blog itu bkn buat posting source codeeeeeeeeee.. ga eneg ape da seharian bergelut ma program dudulz.. di blog ms liat program dudulz o.O

    ReplyDelete
  2. biar kaga lupa ce wakakakkakaka

    ReplyDelete