|
on error resume next
strpath = "C:調べるパス”
set objFS = createobject("scripting.filesystemobject")
set objfolder = objFS.getfolder(strpath)
if err.number <> 0 then
msgbox("エラーno."&err.number&vbcr&err.description)
wscript.quit
end if
set objexcel = createobject("excel.application")
set objbook = objexcel.workbooks.add
objexcel.visible = true
objexcel.cells(1,1).columuwidth =15
objexcel.cells(1,2).columuwidth =15
objexcel.cells(1,3).columuwidth =15
objexcel.cells(1,4).columuwidth =35
objexcel.cells(1,1)value ="ファイル名"
objexcel.cells(1,2)value ="作成日"
objexcel.cells(1,3)value ="最終更新日"
objexcel.cells(1,4)value ="ファイルのパス"
introw = 2
call fileinfo(objfolder)
sub fileinfo(objfolder)
for each objfile in objfolder.files
objexcel.cells (introw, 1).value = objfile.name
objexcel.cells (introw, 2).value = objfile.datecreated
objexcel.cells (introw, 3).value = objfile.datelastmodified
objexcel.cells (introw, 4).value = objfile.path
introw = introw + 1
next
for each objsubfolder in objfolder.subfolders
call fileinfo(objfolder)
next
end sub
VBSの質問をしてしまって、すいませんでした。
上が全文です。行22 文字20 エラーとなります。
このサンプルスクリプトは、フォルダ内のすべてのファイルの情報をエクセルの表として出力します、と書いてあります。
>call test(1)
>sub test(byval aaa)
> msgbox aaa
> abc(1,1)
> if aaa+1 <= 10 then
> aaa=aaa+1
> call test(aaa)
> end if
>end sub
>
上記も試してみましたが、abc(1,1)を削除した後、行3 文字1で文字が正しくありませんという、エラーになってしまいます。
|
|