コマンドプロンプトで実行したら・・・

質問

Function SpaceDelete(dt As String) As String

Dim tmp As String
Dim Aftr As String
Dim i As Integer

For i = 1 To Len(dt)
tmp = Mid(dt, i, 1)
If tmp <> " " And tmp <> "　" Then
Aftr = Aftr & tmp
End If
Next i
SpaceDelete = Aftr

End Function

test.vbs(1,25) Microsoft VBScript コンパイル　エラー： ')'がありません。とエラーがでます。
どこが問題かわかりません。

どなたか教えて頂けないでしょうか。
宜しくお願いします。

回答No.2

kmee

細かい点は動作確認していないので説明できませんが

「型」が無いので、 as String 等の「As 型」が不要です。
Function SpaceDelete(dt)
Dim tmp
Dim Aftr
Dim i

で動きませんか?
ByVal ByRefは有効なので、
Function SpaceDelete(ByVal dt)
がいいかもしれません

回答No.1

kmee

これは、VBScriptなのですか?
それならStringだのといった「型」は存在しないはずです。
as 型という指定は不要です。

VBAやVisual Basicのつもりなら、 cscript等で実行することはできません。

補足

お世話になっております。

もし、cscript等で実行を行う方法で複数のファイル名の中に全角スペースが含まれているのを取り除くとするならば、どのような書き方をすればよろしいでしょうか？

ご教授いただけないでしょうか？
宜しくお願いします。