中国DOS联盟论坛

China DOS Union

-- Unite DOS · Advance DOS · Grow DOS --
Union site: www.cn-dos.net Forum site: www.cn-dos.net/forum
Guest | Log in | Register | Members | Search | China DOS Union
中国DOS联盟论坛
The time now is 2026-11-10 12:31
47,815 topics / 349,930 posts / today 0 new / 48,291 members
DOS批处理 & 脚本技术(批处理室) » [Original] SendTo+ Batch Processing Practical Small Tool -- Enhanced Send To
Printable Version  80,134 / 75
Floor61 kidzgy Posted 2007-08-01 09:27
中级用户 Posts 129 Credits 262
The download link has expired. Please have the thread starter check it.
Floor62 jobesky Posted 2007-09-29 18:16
新手上路 Posts 2 Credits 4
Great
Floor63 binggao Posted 2007-09-30 09:02
初级用户 Posts 33 Credits 70
It feels really difficult. I still need to study a lot.
Floor64 67411666 Posted 2007-10-14 16:13
初级用户 Posts 25 Credits 45
Downloading it first
Floor65 hdzc Posted 2007-10-23 15:55
初级用户 Posts 86 Credits 146
The download link has expired.
Floor66 vincentzpf Posted 2007-11-28 14:42
新手上路 Posts 2 Credits 3
The download link has expired.
Floor67 hpwsb Posted 2007-12-02 12:00
初级用户 Posts 16 Credits 31
Can't download it
Floor68 mrxuanfeng Posted 2007-12-04 17:46
新手上路 Posts 5 Credits 10
There are many experts, passing by, passing by
Floor69 hdzc Posted 2008-01-06 22:14
初级用户 Posts 86 Credits 146
The download address has been restored. Thanks for providing it. It's too useful.
Floor70 gto1235 Posted 2008-01-07 09:04
新手上路 Posts 1 Credits 2
Lack of sufficient qualifications to express an opinion, first study
Floor71 ljxar Posted 2008-03-28 12:26
新手上路 Posts 1 Credits 2
Dude, here's a VBScript example that can help you read the contents of ASP files and write them into a single text file. Save the following code as a `.vbs` file (for example, `asp_to_txt.vbs`):

```vbscript
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOutput = objFSO.CreateTextFile("output.txt", True)

strFolder = InputBox("Please enter the folder path containing ASP files")
Set objFolder = objFSO.GetFolder(strFolder)
Set colFiles = objFolder.Files

For Each objFile In colFiles
If LCase(objFSO.GetExtensionName(objFile)) = "asp" Then
Set objInput = objFSO.OpenTextFile(objFile.Path)
strContent = objInput.ReadAll
objOutput.WriteLine(strContent)
objInput.Close
End If
Next

objOutput.Close
MsgBox "Operation completed!"
```

You need to run this script, and when prompted, enter the folder path that contains all the ASP files. It will read all the content of the ASP files in that folder and write them into a single `output.txt` file.

Please note that you need to have appropriate file access permissions to run this script. Also, this is a simple way to collect the contents; you can adjust it according to more specific needs if necessary.
Floor72 kaikai163 Posted 2008-03-28 20:26
初级用户 Posts 60 Credits 107
What a group of experts! Learning
Floor73 cgi Posted 2008-03-31 14:06
初级用户 Posts 14 Credits 38
The moderator's work is indeed extraordinary, but there is one question I would like to ask the moderator. When using "◇Create a new folder with the same name or clipboard", if there are "(" or ")" in the file name, the new folder cannot be created with the same name or clipboard. Is there a solution? Thank you!
Floor74 xtanbmy Posted 2008-04-07 19:54
初级用户 Posts 31 Credits 47
A group of experts! Learning
Floor75 xb2008chopin Posted 2008-04-08 03:12
初级用户 Posts 11 Credits 24
It's indeed quite classic. I've collected it. Thanks, LZ.
Prev  1 … 2 3 4 5 6  Next
[ Contact the Union admin team - 中国DOS联盟 - Standard version ]
Sponsored by ifanr Inc | © 2001–2023