2011年2月25日
摘要：
On error resume NextDim mu_sFilePath, mu_sFileNamemu_sFilePath = "textFolder/"mu_sFileName = mu_sFilePath & "ResultVoice.txt"Dim fsset fs = CreateObject("Scripting.FileSystemObject")if(fs.FolderExists(mu_sFilePath)) Then '检测文件夹是否存在 MsgBox "文件夹已存在"else 阅读全文
摘要：
CreateTextFile 方法创建指定文件并返回 TextStream 对象，该对象可用于读或写创建的文件。object.CreateTextFile(filename[, overwrite[, unicode]])参数object必选项。应为 FileSystemObject 或 Folder 对象的名称。filename必选项。字符串表达式，指明要创建的文件。overwrite可选项。Boolean 值指明是否可以覆盖现有文件。如果可覆盖文件，该值为 True；如果不能覆盖文件，则该值为 False 。如果省略该值，则将覆盖现有文件。unicode可选项。Boolean 值指明是否以 阅读全文
摘要：
功能：服务器端程序处于监听状态，等待客户端连接。客户端发来数据后，服务端回发一个消息，同时关闭连接！源码下载服务器(采用一个监听线程)核心代码：BOOL CListenThread::InitInstance(){// if (!AfxSocketInit())// {// AfxMessageBox(IDP_SOCKETS_INIT_FAILED);// return FALSE;// } m_bListening = TRUE; // 线程启动时默认处于监听状态 while(1) { if(m_bListening) { StartListen(); } } return TRUE;}in 阅读全文
