「WSH (Windows Script Host)」初心者です。

ちょっと質問文が悪かったかと思います。

￥（全角）はわざとしましたが、要は"cd c:/AAA"です。cdとcの間以外は余計なスペースはありません。

確かcdはカレントディレクトリを移動する時に指定するものだと記憶にありますが、要は相対パスは指定できるのか？もしできるとしたら、どういう指定の仕方をすればいいかということです。

その程度のレベルです。

いろいろ自分でやってみてもうまくエラーになるだけでした。

もしよろしかったら、再度回答をお願いします。

現状はその通りです。

元のvbsは問題なく動きます。

変更したいこと

→１．です。

このvbsを他の人に渡して、任意のフォルダで実行、その人の持つファイルをアップロードしてもらうことです。

その際に作成されるprmやlogはvbsと同じフォルダです。

今日、「ts.WriteLine "cd c:￥AAA"」の部分を削除して実行してみました。

Mookさんのコメントにもありましたので、全文とエラーを書きます。

元のvbsからフォルダ指定を消して、ID・パスワード・ディレクトリ・ファイル名を変えてあります。

Set objWS = WScript.CreateObject("WScript.Shell")

Set objSA = WScript.CreateObject("Shell.Application")

Set objFS = WScript.CreateObject("Scripting.FileSystemObject")

Set objXL = WScript.CreateObject("excel.Application")

Set ts = objFS.OpenTextFile("ftp_aaa.bat",2,true)

ts.WriteLine "FTP -s:ftp_aaa.prm > ftp_aaa.log"

ts.WriteLine "bye"

ts.Close

do

FileName = objXL.GetOpenFilename(,,"Uploadファイル選択",,true)

If IsArray(FileName) Then

Set ts = objFS.OpenTextFile("ftp_aaa.prm",2,true)

ts.WriteLine "open 44.555.33.66" ←IPアドレス

ts.WriteLine "FTPID"　　　　　　　　←ID

ts.WriteLine "FTPPW"　　　　　　　←パスワード

ts.Writeline "cd AAADIR"　　　　　←アップロード先のサーバーのディレクトリ

For i = 1 To UBound(FileName)

ts.WriteLine "put " & FileName(i)

Next

ts.WriteLine "bye"

ts.Close

Ans = Msgbox(UBound(FileName) & "件のデータをUploadします。",vbOkCancel,"○○データUpload")

If Ans = vbOk Then

objWS.run "ftp_aaa.bat",0,true

Ans = Msgbox("データのUpload完了しました。" & vbCrLf & "処理を終了しますか？", _

vbOkCancel,"○○データUpload")

If Ans = vbOk Then

Wscript.Quit

End IF

End if

Else

Wscript.Quit

End if

LOOP

出たエラーメッセージの内容は

スクリプト：c:\test\○○データUpload.vbs

行：24

文字：12

エラー：処理を待つことができません。

コード：80020009

ソース：WshShell.Run

okを押すと、webブラウザにてメッセージ表示。

プロキシ　サーバーがフルアクセスできない設定にされていないため、

フォルダ'ftp://aaa.bat/'は読み取り専用です。

ファイルを移動、貼り付け、名前の変更、または削除するには、

別のプロキシを設定する必要があります。

プロキシの変更の詳細については、システム管理者に問合せてください。

すいません。お手数かけますが、よろしくお願いします。