>>127
すれ違いだが...

Private Function DQ(Str As String) As String
 DQ = """" & Str & """"
End Function

SendStr = "-r9 " & DQ(FN & ".zip") & " " DQ(pasu & "\") & " " & DQ(FN & ".bmp")

とかするのは、どうだろうか ?