my doc内のファイルをPUTしたいのですが

質問

saveFolderPath = text1.text
　　　　　　：
.Execute , "PUT " & " " & saveFolderPath & fileName.Text & " " & fileName.Text

とし、「text1」内に書き込まれたパスにある指定ファイルをアップロードしたいと希望しています。
ところがこの場合、例えばtext1に「C:」と入力されたときは動作しますが、「C:\my doc\My Pictures」と入力すると、「my」と「doc」、「My」と「Pictures」の間の半角スペースが邪魔してしまうようで、アップロードに失敗してしまいます。
「Replace」の利用などで解決できないかと、色々試行錯誤したのですが、自分では解決できませんでした。
つきましては恐れ入りますが、ご教授いただきたくよろしくお願いいたします。

回答No.1

shiojiri · ベストアンサー

ＶＢは持ってないので試してませんが、昔のBASICなら下記のようになります。

Execute , "PUT " + Chr$(&H22) + saveFolderPath + fileName.Text + Chr$(&H22) + " " + Chr$(&H22) + fileName.Text + Chr$(&H22)

半角スペースを含んだファイル名の前後にクォーテーションを付けます。

お礼

ありがとうございます。「saveFolderPath」に半角スペースを含むときには、 「Chr$(&H22) & saveFolderPath & fileName.Text & Chr$(&H22)とする」としたところ、上手く動作してくれたようです。大変助かりました。感謝しております。