'(1) フォルダ−の作成
Sub ki001a()
phn = ActiveWorkbook.Path
    On Error Resume Next
        MkDir phn & "\MyGIF"
    If Err = 75 Then
        On Error GoTo 0
        Exit Sub
    End If
       On Error GoTo 0
End Sub

'(2)フォルダ−の削除
Sub ki001b()
phn = ActiveWorkbook.Path
    On Error Resume Next
       RmDir phn & "\MyGIF"
    If Err = 76 Then
        On Error GoTo 0
        Exit Sub
    ElseIf Err = 75 Then
        Do
            dai = Dir(phn & "\MyGIF" & "\*")
            If dai = "" Then
               RmDir phn & "\MyGIF"
               On Error GoTo 0
               Exit Sub
            End If
            Kill phn & "\MyGIF" & "\" & dai
        Loop
    End If
    On Error GoTo 0
 End Sub