摘要： '如文件名为：abc.txt, 则返回"abc"Function GetFileTitle(sFileName) '求文件的名称(不含扩展名) Dim pos pos = InStrRev(sFileName, ".") '从字符串尾部向前搜索子串(".") if(pos = 0) Then '文件无扩展名 GetFileTitle = sFileName else GetFileTitle = Left(sFileName, pos - 1) end ifEnd Function'删除sFol 阅读全文

摘要： vbs根据文件名取得文件Title(文件名中不含扩展名的部分)：'如文件名为：abc.txt, 则返回"abc"Function GetFileTitle(sFileName) '求文件的名称(不含扩展名) Dim pos pos = InStrRev(sFileName, ".") '从字符串尾部向前搜索子串(".") if(pos = 0) Then '文件无扩展名 GetFileTitle = sFileName else GetFileTitle = Left(sFileName, pos - 阅读全文

摘要： vbscript的时间函数有好大一堆，可是真的用起来的时候却不一定方便，因为各个函数的作用不一样，用法也不完全一样，所以常常出现不知道用哪个函数来实现某个功能的情况。以下就是偶搜集的和时间相关的函数极其用法，如果有不完整的或是错误的地方欢迎大家补充指正第一部分：对时间的判断与数据格式变化(1)IsDate(expression)expression 参数可以是任意可被识别为日期和时间的日期表达式或字符串表达式。返回Boolean值.判断expression是否为合法的日期格式如：IsDate("2004-10-25 13:14:20"其值为true(2)CDate(date 阅读全文

摘要： Dim sFolder, sExt, messagesFolder = "F:\Programming\Applications\VBScript"Dim fs, oFolder, oFiles, oSubFoldersset fs = CreateObject("Scripting.FileSystemObject")set oFolder = fs.GetFolder(sFolder) '获取文件夹set oSubFolders = oFolder.SubFolders '获取子目录集合for each folder in oSubF 阅读全文

摘要： 1.文件下载(无回显) echo iLocal = LCase(WScript.Arguments(1)) >iget.vbe echo iRemote = LCase(WScript.Arguments(0)) >>iget.vbe echo Set xPost = createObject("Microsoft.XMLHTTP") >>iget.vbe echo xPost.Open "GET",iRemote,0 >>iget.vbe echo xPost.Send() >>iget.vbe e 阅读全文

摘要： Const ForReading = 1Dim messageDim fs, tsset fs = CreateObject("Scripting.FileSystemObject")set ts = fs.OpenTextFile("1.txt", ForReading)Do Until ts.AtEndOfStream message = ts.ReadLine '即使是空行，也会被读一次 if message <> "" Then MsgBox message End ifLoopts.Closeset ts 阅读全文

摘要： Function ShowDriveType(drvpath) Dim fso, d, t Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(drvpath)) Select Case d.DriveType Case 0 t = "Unknown" Case 1 t = "Removable" '移动硬盘 Case 2 t = "Fixed" '硬盘 Case 3 t 阅读全文

摘要： Dim messagemessage = "I love you baby, what can I do for you。我一定要找到你！" '经调试，发现不支持中文CreateObject("SAPI.SpVoice").speak message把上面的文件存到a.vbs文件，再双击运行看看，你就知道了。 阅读全文

摘要： 主文件：/* 功能：主要是实现字符串分割，并选择了三种不同的方式来保存结果。 最终证明：可能最方便的还是第一种方法(方便、快捷，不用自己做太多的工作，可以自己维护内存空间)*/#include <iostream>#include <vector>#include "z_string.h"using namespace std;void Spliter(char* pSrc, char* spliter, vector<string>& v){ char* token = NULL; char* temp = new char[s 阅读全文

摘要： /*功能：删除nDays天及之前的日志文件@nDays: 0-不删除日志，3-删除3天及之前的日志(保留今天、昨天、前天的日志) ...void CRecordLog::ClearLog(UINT nDays)// 删除N天前的日志{if (nDays > 0){WIN32_FIND_DATA FindFileData;CString sAllFile = m_sLogFolder + "\\*.log";HANDLE hFind = ::FindFirstFile(sAllFile, &FindFileData);if(INVALID_HANDLE_VALU 阅读全文