搜索列表
-
如何获知文件最后的修改日期和时间？
【编程10000问】<%Dim objCMFUDim strModifiedSet objCMFU = Server.CreateObject("CM_FileUtils.GetProperty")' 创建对象并赋给变量，并且GetProperty类是当前唯一可用的.strModified = objCMFU.LastModified' 检索并返回包含最后修改日期和时间（LastModified function ）值.当然了,还要考虑到出错的...
|如何|何获|获知|知文|文件|件最|最后|后的|的修|修改|改日|日期|期和|和时|时间|间？|？| -
如何获知文件被改动的情况？
【编程10000问】Function File_GetLastModified( sFile )Dim objFileObj, objFile Set objFileObj = CreateObject("Scripting.FileSystemObject") If sFile = "" Then sFile = Server.MapPath( Request.ServerVariables("script_NAME") ) End If Set objFile ...
|如何|何获|获知|知文|文件|件被|被改|改动|动的|的情|情况|况？|？| -
如何获知并显示文件的大小？
【编程10000问】<%Set MyFileSize = Server.CreateObject ("Scripting.FileSystemObject")MyPath = Server.MapPath("/somedirectory")Set MyFolder = MyFileSize.GetFolder(MyPath)%><p><% =MyPath %> is <% =MyFolder.Size %> bytes</p> ...
|如何|何获|获知|知并|并显|显示|示文|文件|件的|的大|大小|小？|？| -
如何对一个文件夹进行创建和删除？
【编程10000问】如何对一个文件夹进行创建和删除？<% set fs=createobject("scripting.filesystemobject") %><% MyFolder=server.mappath("/chunfeng/happy/") %><%If NOT fs.folderexists(MyFolder) then fs.createfolder(MyFolder)End If%> <%If fs.folde...
|如何|何对|对一|一个|个文|文件|件夹|夹进|进行|行创|创建|建和|和删|删除|除？|？| -
如何对文件进行操作？
【编程10000问】<%@ LANGUAGE="VBScript" %><% 'Set file i/o constants. Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 filename = "test.txt" path = Server.MapPath("data") & "\" & filename ' 映射...
|如何|何对|对文|文件|件进|进行|行操|操作|作？|？| -
如何创建一个PDF文件？
【编程10000问】 <%Option ExplicitSub CheckXlDriver() On Error Resume Next Dim vConnString Dim oConn, oErr vConnString = "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=NUL:" &n...
|如何|何创|创建|建一|一个|个P|PD|DF|F文|文件|件？|？| -
如何用表单在线建立目录？
【编程10000问】creatfolder.htm' 表单文件.<form name="form1" method="post" action="folder.asp">创建一个文件夹: <input type="text" name="name"><input type="submit" name="Submit" value="提交"></form> folder.asp<%@ LANGUAGE = "VBScript" %><% Dim...
|如何|何用|用表|表单|单在|在线|线建|建立|立目|目录|录？|？| -
如何遍历目录及目录下的文件？
【编程10000问】<%@ Language=VBScript %><% function bianli(path) set fso=server.CreateObject("scripting.filesystemobject") on error resume next set objFolder=fso.GetFold...
|如何|何遍|遍历|历目|目录|录及|及目|目录|录下|下的|的文|文件|件？|？| -
如何创建Word文件？
【编程10000问】creatdoc.asp<!DOCTYPE html PUBLIC "-//W3C/Dtd html 3.2 Final//EN"><head><title>星河影动之创建Word文件</title><META HTTP-EQUIV="Refresh" CONTENT="30;URL='orderForm.asp'"></head><% dotLocatio...
|如何|何创|创建|建W|Wo|or|rd|d文|文件|件？|？| -
如何做一个文本书写器？
【编程10000问】<%function WriteToFile(FileName, Contents, Append)on error resume nextif Append = true then iMode = 8else iMode = 2end ifset oFs = server.createobject("Scripting.FileSystemObject")set oTextFile = oFs.OpenTextFile(FileName, iMode, True)oTextFile.Write C...
|如何|何做|做一|一个|个文|文本|本书|书写|写器|器？|？| -
如何读取文本文件的内容？
【编程10000问】<%Dim writeDim fileSysObj, tf, readread = "intels.txt"' 读取intels.txt. read = LEFT(Server.Mappath(Request.ServerVariables("PATH_INFO")), InStrRev(Server.Mappath(Request.ServerVariables("PATH_INFO")), "\")) & read' 检索要读的文件的完整路径.Set fileSysOb...
|如何|何读|读取|取文|文本|本文|文件|件的|的内|内容|容？|？| -
如何一行行地读取文件？
【编程10000问】dim input(30) ' 定义一个数组,大小可随时更改.这里为了显示方便.file_path=Server.Mappath("index.html")Set fs=Server.CreateObject("Scripting.FileSystemObject")Set file_open=fs.OpenTextFile(file_path)n=0Do While Not file_open.AtEndOfStreamn=n+1fileline=file_open.readlineinput(i)=file...
|如何|何一|一行|行行|行地|地读|读取|取文|文件|件？|？|
