HTA错误：无法完成操作，因为错误8070000c

-3

因此，我有一个HTA，当我尝试创建或打开文本文件记录时遇到问题。HTA错误：无法完成操作，因为错误8070000c

它正常工作对IE 11 64位Windows 7当我尝试在Windows 10 64位，我得到以下错误：

无法完成因错误8070000c操作。

线的误差是低于：

var fso = new ActiveXObject("Scripting.FileSystemObject"); 
    var f = fso.OpenTextFile('log\\log.txt',2,true); // <-- Error is on this line!

这似乎像一个权限错误。我搜索了大约2个小时，无法确定原因/解决方案。

再次，它工作正常的Windows 7，但Windows 10

同HTA如下：

<!-- saved from url=(0014)about:internet --> 
<?xml version='1.0' encoding='UTF-8'?> 
<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'> 
<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='en' lang='en'> 
<head> 
<HTA:Application Border='yes' ContextMenu='no' Caption='no' Scroll='auto' Singleinstance='yes' Windowstate='maximize' application='yes'> 
<meta http-equiv='Content-Type' content='text/html; charset=utf-8' /> 
<meta http-equiv='X-UA-Compatible' content='IE=9' /> 
<title>KIOSK</title> 
<link rel='stylesheet' href='css/style.css'> 
<link rel='stylesheet' href='https//code.jquery.com/ui/1.12.0/themes/base/jquery-ui.css'> 
<script type='text/javascript' src='jQuery/jquery-3.1.0.js'></script> 
<script type='text/javascript'> 
    // Log File. 
    function writeToLog(dStamp, msg) { 
     var loc = window.location.pathname; 
     var dir = loc.substring(0, loc.lastIndexOf('\\')); 
     dir = dir + '\\log\\log.txt'; 
     // alert(dir); 
     //Create FSO Object 
     var fso = new ActiveXObject("Scripting.FileSystemObject"); 
     //First, make sure the LOG exists 
     if (!fso.fileExists("log\\log.txt")) { 
      //alert("FILE DONT EXIST!"); 
      try { 
       var f = fso.OpenTextFile(dir,2,true); 
       f.close(); 
      } catch(e) { 
       alert("The following error was found: " + e); 
       return; 
      } 
     } else { 
      dtTime = new Date(); 
      //This function was added because if the log file gets over a certain size, I want to rename it and make a new one 
      var f = fso.OpenTextFile(dir,1,false); 
      var fSize = f.Size; 
      if (fSize > 1000000) { //If file is larger than 1Mb, rename and create new. 
       fileExists = true; 
       fileNumber = 0; 
       newFileName = f + "-" + (dtTime.getMonth() + 1) + "-" + dtTime.getDate() + "-" + dtTime.getFullYear(); 
       while (fileExists) { 
        if (fso.fileExists(newFileName)) { 
         fileNumber++; 
         newFileName = f + "-" + (dtTime.getMonth() + 1) + "-" + dtTime.getDate() + "-" + dtTime.getFullYear() + "_" + fileNumber; 
         fileExists = true; 
        } else { 
         fileExists = false; 
        } 
       } 

       fso.MoveFile(f, newFileName); 

       //And create my new one 
       f = fso.OpenTextFile(dir,2,true); 
       f.close(); 
      } 
     } 

     //Now, open the log file 
     var f = fso.OpenTextFile(dir, 8); 

     //Now, write to the log file 
     //First, check to see if we want a date stamp before this message 
     if (dStamp == true) { 
      dtTime = new Date(); 
      nLine = dtTime + "\t" + msg; 
     } else { 
      nLine = "\t" + msg; 
     } 

     f.WriteLine(nLine); 

     //Finally, close the log file... until next time... 
     f.close(); 
    } 
</script> 
<body ondragstart='return false' style='text-align:center;'> 
    <input type="button" onclick="writeToLog(true,'Test Log HTA');" value="Test Log" /> 
</body> 
</html>

任何帮助表示赞赏。

来源

2016-09-28 dEf

可能UAC，使用提升的特权运行'mshta.exe“your.hta”'。 – Lankymart

你的时间可能会更好地花在离开HTA。微软表示它是一项“传统”技术。请参阅[此连接文章]（https://connect.microsoft.com/IE/feedback/details/785055/hta-application-tag-does-not-work-in-ie10）官方文字。 –

我明白HTA是传统技术。不幸的是，这就是我现在正在处理的事情。 – dEf

看起来我有一些不正确的值被传递给OpenTextFile，这基本上导致我所有的问题。如果有人需要修正和“工作”脚本， :)

// Log File. 
function writeToLog(dStamp, msg) { 
    var loc = window.location.pathname; 
    var dir = loc.substring(0, loc.lastIndexOf('\\')); 
    dir = dir + '\\log\\log.txt'; 
    // alert(dir); 
    //Create FSO Object 
    var fso = new ActiveXObject("Scripting.FileSystemObject"); 
    //First, make sure the LOG exists 
    if (!fso.fileExists(dir)) { 
     //alert("FILE DONT EXIST!"); 
     try { 
      var f = fso.CreateTextFile(dir, true); 
      f.close(); 
     } catch(e) { 
      alert("The following error was found: " + e); 
      return; 
     } 
    } else { 
     dtTime = new Date(); 
     //This function was added because if the log file gets over a certain size, I want to rename it and make a new one 
     var f = fso.OpenTextFile(dir,1,true,0); 
     var fSize = f.Size; 
     if (fSize > 1000000) { //If file is larger than 1Mb, rename and create new. 
      fileExists = true; 
      fileNumber = 0; 
      newFileName = f + "-" + (dtTime.getMonth() + 1) + "-" + dtTime.getDate() + "-" + dtTime.getFullYear(); 
      while (fileExists) { 
       if (fso.fileExists(newFileName)) { 
        fileNumber++; 
        newFileName = f + "-" + (dtTime.getMonth() + 1) + "-" + dtTime.getDate() + "-" + dtTime.getFullYear() + "_" + fileNumber; 
        fileExists = true; 
       } else { 
        fileExists = false; 
       } 
      } 

      fso.MoveFile(f, newFileName); 

      //And create my new one 
      f = fso.CreateTextFile(dir, true); 
      f.close(); 
     } 
    } 

    //Now, open the log file 
    var f = fso.OpenTextFile(dir,8,true,0); 

    //Now, write to the log file 
    //First, check to see if we want a date stamp before this message 
    if (dStamp == true) { 
     dtTime = new Date(); 
     nLine = dtTime + "\t" + msg; 
    } else { 
     nLine = "\t" + msg; 
    } 

    f.WriteLine(nLine); 

    //Finally, close the log file... until next time... 
    f.close(); 
}

来源

2016-09-28 21:20:56 dEf

HTA错误：无法完成操作，因为错误8070000c

回答

相关问题