客户端使用fso集锦

原创 2003年12月31日 10:20:00

读取客户端文件:
<script language="vbscript">
Sub OpenScript
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   strOpenFileName = InputBox("Please enter the complete path name for your script (for example, C:/Scripts/MyScript.txt).")
   If strOpenFileName = "" Then
      Exit Sub
   End If

   Set objFile = objFSO.OpenTextFile(strOpenFileName)
   strHTML = "<textarea cols=100 rows=30>"
   strHTML = strHTML & objFile.ReadAll()
   strHTML = strHTML & "</textarea>"
   document.write(strHTML)
   objFile.Close
End Sub
</script>
<input type="button" value="打开" onclick="vbscript:OpenScript">

保存页面上内容到客户端指定位置:
<script language="vbscript">
sub save_as()
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   strSaveFileName = InputBox("Please enter the complete path where you want to save your script (for example, C:/Scripts/MyScript.vbs).")
   If strSaveFileName = "" Then
      Exit Sub
   End If

   Set objFile = objFSO.CreateTextFile(strSaveFileName)
   objFile.WriteLine code.InnerText
   objFile.Close
end sub
</script>
<div id="code">Hello,I am possible !</div>
<br><input type="button" onclick="vbscript:save_as()">

文件的遍历:
<script language=vbs>
Set fso=CreateObject("Scripting.FileSystemObject")
set getfso=fso.GetFolder("c:/").files
document.write "以下是c:所有文件"
for each i in getfso
document.write i & "<br>"
next
document.write "<p>以下是d:所有文件子文件夹包含的文件夹和文件<p>"
set getfso=fso.GetFolder("d:/").SubFolders
for each r in getfso
document.write r & " 文件夹包含<p>"
set getfso1=fso.GetFolder(r).files
for each n in getfso1
document.write n & "<br>"
next
next
</script>

删除客户端文件:
<script language="vbscript">
Sub OpenScript

   Set objFSO = CreateObject("Scripting.FileSystemObject")
   strOpenFileName = InputBox("Please enter the complete path name for your script (for example, C:/Scripts/MyScript.txt).")
   If strOpenFileName = "" Then
      document.all("code").InnerHTML = "请输入路径!"
      Exit Sub
   End If

   if objFSO.FileExists(strOpenFileName) then
        objFSO.DeleteFile strOpenFileName
        document.all("code").InnerHTML = "删除"&strOpenFileName&"!"
        f1.Close
   else
        document.all("code").InnerHTML = "找不到"&strOpenFileName
   End If
Set objFSO = Nothing

End Sub
</script>
<input type="button" value="选择删除" onclick="vbscript:OpenScript()"><br><br>
<div id="code"></div>

获取客户端某个文件的名字,文件大小:
<script language="vbscript">
function myfile()
         url=f1.my.value
 Set fso=CreateObject("Scripting.FileSystemObject")
 Set fl=fso.getfile(url)
 flsize=fl.size
 flName=fl.name
 Set fl=Nothing
 Set fso=Nothing
        msgbox("文件:"&flName&" 大小:"&flsize&"字节")
End function
</script>
<form name="f1">
<input type="file" name="my" onblur="vbscript:myfile()">
</form>

最新Android面试题集锦

最近因为某些原因想换工作,整理一下个人觉得面试中还比较值得记录的一些题目,给需要找这方面工作的人一个借鉴。 以下基本只记录题目或者大概答案,如果大家有比较详细的解答或者比较好的面试题木,希望各位看到...
  • huiguixian
  • huiguixian
  • 2014年08月28日 20:38
  • 3770

javaScript读取txt文档的FSO对象和ADODB.Stream对象

转自:http://blog.163.com/chaosumin@126/blog/static/86387403201092793610651 在使用JavaScript读取txt文档...
  • kezhen
  • kezhen
  • 2014年12月05日 16:52
  • 1795

ASP中FSO的神奇功能&nbsp;--&nbsp;使用FSO进…

你也许想:好,现在我知道如何写入文件了。但能做到更多一些吗?下面来试一试为web站点建立一个搜索功能。建立搜索引擎的关键是递归。主要地,编写一段代码搜索目录下的文件,然后对所有的目录循环执行同样的代码...
  • hejinde
  • hejinde
  • 2014年09月25日 19:23
  • 523

FSO组件的开启和关闭方法

一、系统没有开启FSO组件 系统没有开启FSO组件. FSO组件的开启和关闭方法 Dll 文件的注册和注销: 在开始菜单运行 注消FSO组件:RegSvr32 /u %windir%\SYS...
  • jiumingmao11982
  • jiumingmao11982
  • 2015年08月05日 22:44
  • 876

ASP文件操作(FSO)详解

ASP文件操作(FSO)详解 实例一:写入文件  语法  object.CreateTextFile([要建立的文件],[如存在,是否替代])  Set fs  ...
  • wkj001
  • wkj001
  • 2016年11月26日 11:08
  • 314

ASP中FSO的神奇功能-文件读取

现在已经有了一些用户信息保存在文件中,就像一个简单的数据库。假设有一个用户想了解所有的访问者,就要从登记的信息中分离出相关部分,因为没有象数据库一样拥有结构化的列。我们知道,在所创建的文件中,第1行是...
  • hejinde
  • hejinde
  • 2014年09月25日 19:23
  • 776

VB 读取文件 VB6.0 实用FSO

file1 = "c:\Myfile10001.txt"     Const ForReading = 1, ForWriting = 2, ForAppending = 3     Dim fs...
  • angel20082008
  • angel20082008
  • 2015年04月24日 19:19
  • 4460

excel VBA根据excel列值 拷贝文件并修改文件名

excel 宏不会打开 查一下百度
  • zky1347888
  • zky1347888
  • 2014年10月30日 15:43
  • 1327

ResultSet用法集锦

http://soft-development.iteye.com/blog/1420323 结果集(ResultSet)是数据中查询结果返回的一种对象,可以说结果集是一个存储查询结果的对象...
  • fandoudou123
  • fandoudou123
  • 2015年03月28日 11:20
  • 252

VBScript文件操作对象FSO大全

基本运算 + 数字加法及字符串连接 - 数字减法 * 数字乘法 / 数字除法 Mod 求余数 \ 求商数 & 字符串连接 ^ 次方 = 相等 ...
  • gufengaoyue
  • gufengaoyue
  • 2013年11月19日 15:10
  • 1212
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:客户端使用fso集锦
举报原因:
原因补充:

(最多只允许输入30个字)