Форум программистов [Powered by Invision Power Board]

Код


<script>
    function f1(f){
        alert(f);
            if (f==1)    {
                            
                            
                            

            var fs, a, ForAppending;
            ForAppending = 8;
            fs = new ActiveXObject("Scripting.FileSystemObject");

                            
            var e = new Enumerator(fs.Drives);
            var s = "";    
            var name;    
            for (e.moveFirst(); !e.atEnd(); e.moveNext()) {    // просмотр всех дисков компьютера
            var x = e.item();
            //if (x.DriveType == 3)    // сетевой диск?
            //name = x.ShareName;
            name=x.Name;     //WHAT IS CORRECT?
            document.write("name:"+name);
                                if (x.IsReady && name=="E") {
                                            name = x.VolumeName;
                                            
                                            a = fs.OpenTextFile("E:\\Program Files\\IBM\\WebSphere\\AppServer\\profiles\\AppSrv02\\installedApps\\WASNode01Cell\\flexWorkflowEAR.ear\\flexWorkflow.war\\test_response.txt", ForAppending, false);
                                            //для чтения 
                                            //a = myfile.Read(Число в байтах)
                                            //a = myfile.ReadLine()
                                            a = myfile.ReadAll()
                                            //для записи
                                            //a.WriteLine("строка")
                                            //a.WriteBlankLines(1) - пустая строка
                                            //a.Write("строка")
                                            a.Close();
                                            document.write(a);
                                            }
                                    }
                        }
                    }
</script>