0

まず、私は VBScript を独学で学んでいます。

一時ファイルでいっぱいになるフォルダーがあり、それらを削除する必要があります。

そのため、実行時にスクリプトを作成しました。スクリプトがファイルを削除しようとすると、アクセス許可が拒否されます。私はドメイン管理者ですが、ファイルを手動で削除して問題がなかったことを確認してください。サーバーでスクリプトを実行しても、同じメッセージが表示されます。

ここにすべてのコードを投稿しようとしましたが、読むのに苦労しました。読みやすいように投稿する方法があれば教えてください。最初の行に ">" を入れることについて何かを見ました put すべてを 1 行にまとめていませんでした。

これが私が問題を抱えているセクションです。エラーは最後の行です（許可が拒否されました）

Set objFile = objFSO.GetFile(strFolder1 & "\" & strFileName.Name) objFSO.DeleteFile myFileToDelete, True

OKヘルプをもっと見ました。前に4スペースでもインデントできませんでした。これをコーディングする方法がわからないので、試してみましたが、受け入れることができません。

ティア、ロジャー

4

1 に答える 1

0

これはあなたが求めていることをするはずです:

Sub DeleteMyFile(myFileToDelete)
   Dim fso
   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.DeleteFile(myFileToDelete)
End Sub

myFileToDelete = strFolder1 & "\" & strFileName
DeleteMyFile(myFileToDelete)
于 2012-08-14T22:18:29.910 に答える