fso | 易学教程

How to write data to textfile using JavaScript

阅读更多关于 How to write data to textfile using JavaScript

问题 I have some problem to write date to a file Test.txt by using JavaScript. I have find answer in good too but I am still can't solve it. This is my code <script type="text/javascript"> function WriteFile() { var fso = new ActiveXObject("Scripting.FileSystemObject"); var fh = fso.CreateTextFile("Test.txt", 8,true); x=document.getElementById("name").value; fh.WriteLine(x); fh.Close(); } And <form> <input type="text" id="name"/> <input type="button" value="Save" id="write" onclick="WriteFile()"/>

VBScript read multiple filenames from txt file and list which do not exist in directory

阅读更多关于 VBScript read multiple filenames from txt file and list which do not exist in directory

问题 I am new to VB scripting, and I was trying to find a way to: Read a list of file names written as lines of text inside a particular text file. Check if those files exist in the same directory as the script. Write the name of the files that do not exist to an output file (missing.txt) From my research, it seems that a good approach would be to use FSO and read the entire text file, creating an array, then looping through to check if the file exists in the directory, and then logging to

FSO returns non-existing subfolders

阅读更多关于 FSO returns non-existing subfolders

问题 I'm using this code to get the subfolders of a directory: Dim fo As Scripting.Folder Set fo = fso.GetFolder(m_sFolder) Dim nSubfolder As Scripting.Folder For Each nSubfolder In fo.SubFolders Debug.Print "Folder " & fo.Path & " has subfolder " & nSubfolder Next Now when m_sFolder is "C:\Users\MyUser\Documents", one subfolder is "C:\Users\MyUser\Documents\Eigene Bilder". "Eigene Bilder" is what Windows calls the folder "My Pictures" in German language. However, the folder "C:\Users\MyUser

Issue with MoveFile method to overwrite file in Destination in vbscript?

阅读更多关于 Issue with MoveFile method to overwrite file in Destination in vbscript?

问题 I have a vbscript that I have written to move files from a source directory to a destination directory. The way the script works at the moment is that I have a mapping file which is read in (maps id's to folder type). Each file being moved begins with the id and the destination will be based on what the id is mapped to. I read in the mapping file and build up the destination path for each file being moved. This all works as expected, the problem is when I try to move a file that already

Pass a username/password when accessing a folder via VBScript

阅读更多关于 Pass a username/password when accessing a folder via VBScript

问题 I have a script that is meant to retrieve some files from a users old profile on a server and copy it to there new one, but the users do not have access rights for the folders/files in question when connecting through the server. Is there a way passing a username/password with the following functions? Thanks. objFSO.FolderExists(folder_path) objFSO.CopyFolder(folder_path) objFSO.CopyFile(folder_path) 回答1: You have to map the share to a driveletter first, then persistent = false set objNetwork

Pass a username/password when accessing a folder via VBScript

阅读更多关于 Pass a username/password when accessing a folder via VBScript

I have a script that is meant to retrieve some files from a users old profile on a server and copy it to there new one, but the users do not have access rights for the folders/files in question when connecting through the server. Is there a way passing a username/password with the following functions? Thanks. objFSO.FolderExists(folder_path) objFSO.CopyFolder(folder_path) objFSO.CopyFile(folder_path) You have to map the share to a driveletter first, then persistent = false set objNetwork = WScript.CreateObject("WScript.Network") objNetwork.MapNetworkDrive "driveletter:", "\\server\sharename",

Is there a way to navigate backwards in a TextStream file?

阅读更多关于 Is there a way to navigate backwards in a TextStream file?

I have started to use the fso object in order to overcome the 2GB limit of VBA. Everything looks satisfactory for my purposes, except that I can not find a way to go backwards in the textstream files. For going forward I have used read(no of chars) and skip(no of chars). Is there a way to do so ? I ran into the same frustrating limitation. Here is a class that wraps the native Windows API to perform File IO. As noted, it is based on the example on msdn at http://support.microsoft.com/kb/189981 . I haven't finished testing it thoroughly, so if you find any issues, let me know so I can fix them

Is there a way to navigate backwards in a TextStream file?

阅读更多关于 Is there a way to navigate backwards in a TextStream file?

问题 I have started to use the fso object in order to overcome the 2GB limit of VBA. Everything looks satisfactory for my purposes, except that I can not find a way to go backwards in the textstream files. For going forward I have used read(no of chars) and skip(no of chars). Is there a way to do so ? 回答1: I ran into the same frustrating limitation. Here is a class that wraps the native Windows API to perform File IO. As noted, it is based on the example on msdn at http://support.microsoft.com/kb

How to read lines from a text file one by one with Power Point VBA code?

阅读更多关于 How to read lines from a text file one by one with Power Point VBA code?

问题 This code will read a line from a text file: set file = CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\number.txt", 1) text = file.ReadLine MsgBox text How can I make it read repeatedly one line after another from the same file? I guess, I should use a loop here, right? I need it to read the first line from the file at the first iteration, the second line at the second iteration, the third one at the third and so on till all the lines have been read. How can I do it? Important

Access files with long paths (over 260)

阅读更多关于 Access files with long paths (over 260)

I'm using Microsoft Scripting Runtime (FSO) to parse folders and produce a list of all of its contents, the folders are on a network and resultant paths end up longer than 260. The minimum code I have is as below:- Private Sub ProcessFolder(ByVal StrFolder As String) Dim Fl As File Dim Fldr As Folder Dim RootFldr As Folder Set RootFldr = FS.GetFolder(StrFolder) For Each Fl In RootFldr.Files Debug.Print Fl.Path Next For Each Fldr In RootFldr.SubFolders DoEvents ProcessFolder Fldr.Path Next Set RootFldr = nothing End sub At a certain level StrFolder length became 259, the Set RootFldr ... folder