VBS について

Question

以下のスクリプトは、あるフォルダ以下の（サブフォルダを含む）abcファイル（仮称）すべてについて同じ名前でhtmlファイルをつくると同時に、そこへリンクするメニューのページを上書きする、という構想で書いたものですが、実行すると２行目で　')'がありません　というエラーが出てしまいました。（具体的な数値等は"****"としました）私はExcelのVBAは多少の経験がありますが、VBScriptを書いたのはこれが初めてで、HTMLも未経験です。 "')'がない"というのはどういうことなのか、このエラーをどのように対処すればよいかを教えていただければと思います。よろしくお願いします。 Set fso = WScript.CreateObject("Scripting.FileSystemObject") Public Sub GetAllFiles(ByVal folder As String, ByVal searchPattern As String, ByRef files As ArrayList) 'folderにあるファイルを取得する。 Dim fs As String() = System.IO.Directory.GetFiles(folder, searchPattern) 'トップページを途中まで作成する。 Set outFileStream = fso.CreateTextFile(folder.Path & "\***", True) outFileStream.WriteLine "" outFileStream.WriteLine "" outFileStream.WriteLine "****" outFileStream.WriteLine "" outFileStream.WriteLine "" '各htmlファイルを作成する。 For Each fs In folder.Files Set outFileStream = fso.CreateTextFile(folder.Path & "\" & Left(fs.Name, Len(fs.Name) - Len(Ext)-1) & ".html", True) outFileStream.WriteLine "" outFileStream.WriteLine "" outFileStream.WriteLine "***" outFileStream.WriteLine "" outFileStream.WriteLine "" outFileStream.WriteLine "

" outFileStream.WriteLine "" outFileStream.WriteLine "" outFileStream.Close() 'トップページの続きを作成する。 Ext = fso.GetExtensionName(fs.Name) If LCase(Ext) = "html" Then outFileStream.WriteLine "" & Left(fs.Name, Len(fs.Name) - Len(Ext)-1) & "
" End If Next outFileStream.WriteLine "" outFileStream.WriteLine "" outFileStream.Close() 'folderのサブフォルダを取得する。 Dim ds As String() = System.IO.Directory.GetDirectories(folder) 'サブフォルダへの処理も行う。 Dim d As String For Each d In ds GetAllFiles(d, searchPattern, files) Next d End Sub Set CurFolder = fso.GetFolder(".") GetAllFiles(CurFolder, "*.abc", files) Set outFileStream = Nothing Set CurFolder = Nothing Set fso = Nothing

anmochi · Accepted Answer

> 実行すると２行目で　')'がありません　というエラーが出てしまいました。
　VBScriptには型の宣言はないんだぜ。なので As Stringとかは使えないんだぜ。
Public Sub GetAllFiles(ByVal folder, ByVal searchPattern, ByRef files)
　JavaScriptと同じで内部でちゃんと型は持っているので心配はない。

　後、4行目にSystem.IO名前空間とかあるけどVBSはMicrosoft .Net Frameworkも使えないのでこの行もfsoを使ったものに変えないといけないです。

VBS について

> 実行すると２行目で ')'がありません というエラーが出てしまいました。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

> 実行すると２行目で　')'がありません　というエラーが出てしまいました。