The download link has expired. Please have the thread starter check it.
China DOS Union
Union site: www.cn-dos.net Forum site: www.cn-dos.net/forum
DOS stands for freedom, openness and progress. Let us work hard, learn from the openness and GNU spirit of FreeDOS and Linux, and together build and grow a free GNU GPL world!
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [Original] SendTo+ Batch Processing Practical Small Tool -- Enhanced Send To
DigestII
View 77,266 Replies 75
DigestII
View 77,266 Replies 75
Floor 61
Posted 2007-08-01 09:27 · 中国 广东 梅州 电信
Floor 62
Posted 2007-09-29 18:16 · 中国 湖北 襄阳 电信
Great
Floor 63
Posted 2007-09-30 09:02 · 中国 重庆 中移铁通
It feels really difficult. I still need to study a lot.
Floor 64
Posted 2007-10-14 16:13 · 中国 浙江 温州 电信
Downloading it first
Floor 65
Posted 2007-10-23 15:55 · 中国 山东 青岛 联通
The download link has expired.
Floor 66
Posted 2007-11-28 14:42 · 中国 广东 东莞 电信
The download link has expired.
Floor 67
Posted 2007-12-02 12:00 · 中国 广东 东莞 电信
Can't download it
Floor 68
Posted 2007-12-04 17:46 · 中国 河南 郑州 教育网
There are many experts, passing by, passing by
Floor 69
Posted 2008-01-06 22:14 · 中国 山东 青岛 联通
The download address has been restored. Thanks for providing it. It's too useful.
Floor 70
Posted 2008-01-07 09:04 · 中国 广东 深圳 龙岗区 电信
Lack of sufficient qualifications to express an opinion, first study
Floor 71
Posted 2008-03-28 12:26 · 中国 山东 济南 联通
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.
```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.
Floor 72
Posted 2008-03-28 20:26 · 中国 山东 青岛 联通
What a group of experts! Learning
Floor 73
Posted 2008-03-31 14:06 · 中国 台湾 中华电信(HiNet)数据中心
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!
Floor 74
Posted 2008-04-07 19:54 · 中国 甘肃 兰州 电信
初级用户
★
Credits 47
Posts 31
Joined 2008-03-17 19:04
18-year member
UID 113236
Gender Male
Posts 31
Joined 2008-03-17 19:04
18-year member
UID 113236
Gender Male
Status Offline
A group of experts! Learning
Floor 75
Posted 2008-04-08 03:12 · 中国 四川 成都 电信
It's indeed quite classic. I've collected it. Thanks, LZ.
Forum Jump: