Gemme fil lokalt

<script type="text/jscript">
function copyFiles(sFolderFromPath, sFolderToPath) {
  // Instantiate a Shell object
    var oShell = new ActiveXObject("Shell.Application"),
  // Get a reference to the folder be copied
    oFromFolder = oShell.NameSpace(sFolderFromPath);
   
  // Check that the folder exists
    if (oFromFolder) {
      // Get a reference to the folder to copy to
        var oToFolder = oShell.NameSpace(sFolderToPath);
      // Copy the files
        oToFolder.CopyHere(oFromFolder.Items());
    }
   
  // Clean up the kitchen!
    oFromFolder = oToFolder = oShell = null;
}

copyFiles("F:\\Kort", "C:\\Users\\Ole\\Desktop\\CopyToThis");
</script>

<?php
header("Content-Type: application/hta");

// Read the HTA-file and write out here
?>

<script type="text/jscript">
function saveFile(sFileURL, strFilePath){
    var oHttp = new XMLHttpRequest();
    try{
        oHttp.onreadystatechange = function(sLoc){
            return function(){
                if(oHttp.readyState==4){
                    if(oHttp.status==200 || oHttp.status==0){
                        var oStream = new ActiveXObject("ADODB.Stream");
                        oStream.Open();
                        oStream.Type = 1;
                        oStream.Write(oHttp.responseBody);
                        oStream.saveToFile(sLoc, 2);
                        oStream.close();
                        alert("Finished!");
                    }
                }
            };
        }(strFilePath);
        oHttp.open("GET", sFileURL, true);
        oHttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded; charset=utf-8");
        oHttp.send();
    }catch(e){
        alert(e.message);
    }   
}

saveFile("http://www.eksperten.dk/images/eksperten_logo.gif", "C:/Test/myCopyOfEkspertenLogo.gif");
</script>

Opret en folder C:\TestOutput, da demoen gemmer filerne her.

Første gang en HTA åbnes fra nettet, spørger window om lov, og du skal gemme den lokalt.

Højreklik på den gemte .HTA-fil og vælg Unblok i properties for at give scriptet adgang til din harddisk.

Dobbeltklik TestHTA.hta for at køre den.