Ｖｂｓｃｒｉｐｔに詳しいかたがいらっしゃるならぜひ教えてください！

質問

以下のコードなんですが
なぜかwindows2000では何回実行しても
圧縮ファイルができあがりますが
windows2003では
いつも空のzipファイルが作られてしまいますけど
Ｖｂｓｃｒｉｐｔに詳しいかたがいらっしゃるなら
ご教授願います。
Dim fso
Dim wShell
Dim sourceFolderPath
Dim sourceFilePath
Dim targetFolderPath
Dim Shell
Dim ie
Dim file
Dim d
Dim sourceFile
Dim zipfile
Dim zip
Dim dFolder
Dim ZIPdata:ZIPdata="PK" & Chr(5) & Chr(6) & String(18,0)
targetFolderPath="C:\job\VBS\zip\"
sourceFilePath ="C:\job\VBS\新しいフォルダ\test1.txt"

Set fso=CreateObject("Scripting.FileSystemObject")
Set wShell=CreateObject("WScript.Shell")
CreateObject("WScript.Shell").Run "explorer.exe",0,True
WScript.Sleep 100
Set Shell=CreateObject("Shell.Application")
For Each ie In Shell.Windows
If Not ie.Busy and ie.ReadyState=4 and InStr(TypeName(ie.Document),"IShellFolderViewDual")=1 Then
exit for
end if
next
Set Shell=ie.Document.Application
'set sourceFolder = fso.GetFolder(sourceFolderPath)
set sourceFile = fso.GetFile(sourceFilePath)
set targetFolder = fso.GetFolder(targetFolderPath)
set sourceFile = fso.GetFile(sourceFilePath)
d = sourceFile.DateLastModified
zipfile=targetFolderPath & "￥" & Year(d) & "-" & Month(d) & "-" & Day(d) & " " & sourceFile.Name & ".zip"
fso.CreateTextFile(zipfile).write ZIPdata
Set dFolder=Shell.NameSpace(zipfile)
Set Folder=Shell.NameSpace(sourceFile.ParentFolder.Path)
Set FolderItem=Folder.ParseName(sourceFile.Name)
dFolder.CopyHere FolderItem,&H10

回答No.1

akanekor · ベストアンサー

間違ってたらすみません（＝＝；

単にWin2003で動かしている時に、ファイル書込権限付けていないだけかもしれません。
エラー処理（On Error Resume Next）入れて、エラー取得してみてください。
"'800a0046'"が出ていたら、それが原因です。

その場合は、IISの設定でaspファイルに書込権限付けてみてください。
（2003Serverなら、ファイル単位で権限付けられたと思う、、、）
後、匿名ユーザの権限を「書き込み権限有り」のユーザにしないとダメかも。

お礼

貴重なヒントありがとうございます。
さっそく調べてみます。