VB6でランタイムエラー '70'のアクセス許可が拒否されました

Question

私はVB6を使用しています。私はこのコードを実行すると、私が抽出し、いくつかのzipファイルを作成し、私は私のコードのlocally.Inクリーンアップパーツを作成するフォルダにそれらを解凍しているツールが、私はこのコード

If (f.FolderExists(path + "Extracted Files") = True) Then 
    f.DeleteFolder (path + "Extracted Files") 
End If  

を使用してフォルダを削除しました、エラーが発生します。実行時エラー '70'およびアクセス権が行f.DeleteFolder（パス+ '抽出されたファイル'）で拒否されました。

どこが間違っていますか？または、別の権限でフォルダを作成する必要がありますか？

Answer 1

おそらく、1つ以上のファイルが読み取り専用ですか？削除を強制するには、オプションの力パラメータを使用します。

f.DeleteFolder (path + "Extracted Files"), True 

Answer 2

あなたはファイルを抽出するために、別の言語で書かれたライブラリを使用していますか？ポインタが開いていることを確認します。ファイルが開かれている可能性があります。幸いです！