- 综合排序
- 最热优先
- 最新优先
- 来自专栏全栈程序员必看
JavaScript Scripting.FileSystemObject FSO属性大全
什么是FSO？ FSO 即 File System Object 文件系统对象，是一种列表 Windows 磁盘目录和文件，对目录和文件进行删除、新建、复制、剪切、移动等操作的技术。 使用 FSO 网站的好处：直接读取目录下的文件和子目录，方便维护，如需要添加任何内容，将文件放在相应的目录下即可；FSO 网站类似 Windows 操作界面，易于使用，会使用 Windows 就会使用 FSO 网站。 – var fso = new ActiveXObject(“Scripting.FileSystemObject”); var newpath = fso.BuildPath(“c://tmp”, – var fso = new ActiveXObject(“Scripting.FileSystemObject”); fso.CopyFolder(“c://WINDOWS//Desktop”,
1.3K30编辑于 2022-09-14 - 来自专栏哆哆Excel
FSO对象的GetFile与GetFileName方法
FSO对象的GetFile与GetFileName方法 【知识点】 GetFile 方法 返回与指定路径中的文件对应的**file** 对象。 语法 对象。 Scripting.FileSystemObject") s= fs.GetFileName("F:\家Excel学习\yhd-Excel\yhd-Excel-VBA\yhd-ExcelVBA-Fso
1.2K20编辑于 2022-10-25 - 来自专栏全栈程序员必看
使用FSO修改文件特定内容的函数
,tempcnt set fso = server.CreateObject(“scripting.filesystemobject”) if not fso.fileExists(server.mappath ,f,temparray,tempCnt set fso = server.CreateObject(“scripting.filesystemobject”) if not fso.fileExists 添加文件新行的函数 function FSOappline(filename,Linecontent) dim fso,f set fso = server.CreateObject(“scripting.filesystemobject ”) if not fso.fileExists(server.mappath(filename)) then exit function set f = fso.opentextfile(server.mappath ,f,temparray,tempcnt set fso = server.CreateObject(“scripting.filesystemobject”) if not fso.fileExists
2.4K20编辑于 2022-09-02 - 来自专栏哆哆Excel
FSO对象Folder相关三种方法
FSO对象Folder相关三种方法 FolderExists方法 CreateFolder方法 DeleteFolder方法 FolderExists方法 如果指定的文件夹存在，则返回 True；否则返回 ==========【实例】========== 测试一：首先检测本目录下是否存在“FSO-test”的文件夹，如果存在就在文件夹中创建一个“成功.txt”的文本文件，在这个记事本中写“This is 如果不存在就创建一个“test创建文件夹”的文件夹，代码测试成功 Sub t_Folder_f() Dim fs As Object, s, t t= ThisWorkbook.Path & "\FSO-test
63810编辑于 2022-10-25 - 来自专栏哆哆Excel
ExcelVBA-FSO对象模型-Files属性(提取文件列表)
ExcelVBA-FSO对象模型-Files属性(提取文件列表) ExcelVBA-FSO对象模型-Folder对象-Files属性(提出文件列表) FileSystemObjects对象模型包含了下面的对象和集合
2K20编辑于 2022-10-25 - 来自专栏Dance with GenAI
自由空间光通信（FSO）激光通信白皮书
（1）FSO 定义与系统组成 定义：自由空间光通信（FSO）是通过大气以光信号为载波实现点对点信息传输的无线通信技术。 系统组成： 核心组件：每个 FSO 系统包含光 transceiver（由激光发射器和接收器组成，支持全双工通信）。 关键问题： 问题：FSO 相比传统通信技术（光纤、RF、铜缆）的核心竞争力体现在哪些方面？ 问题：FSO 在实际应用中面临的最主要挑战是什么？这些挑战对其传输性能有何具体影响？ 答案：最主要挑战是雾和大气湍流。 问题：FSO 的安全特性使其在哪些场景中更具应用优势？为什么？ 答案：FSO 在对数据安全性要求高的场景（如企业敏感数据传输、金融通信）中更具优势。
1.7K10编辑于 2025-07-26 - 来自专栏全栈程序员必看
Scripting.FileSystemObject详解
创建文件 set fso = server.CreateObject(“Scripting.FileSystemObject”) set f = fso.CreateTextFile(“C:\test.txt = nothing 打开并读文件 set fso = server.CreateObject(“Scripting.FileSystemObject”) set f = fso.OpenTextFile ”) call fso.CopyFile(“C:\test.txt”, “D:\test111.txt”) ‘两个参数的文件名部分可以不同 set fso = nothing 删除文件 set fso set fso = nothing 判断文件夹是否存在 set fso = server.CreateObject(“Scripting.FileSystemObject”) if fso.FolderExists set fso = nothing 检测驱动器C盘是否存在 Set fso = Server.CreateObject(“Scripting.FileSystemObject”) fso.DriveExists
2.2K30编辑于 2022-09-14 - 来自专栏VBA 学习
VBA调用外部对象02：FileSystemObject——其他函数
其他一些个人认为比较常用的函数有： 1、判断文件是否存在 fso.FileExists 2、获取不包含路径的文件名 fso.GetFileName这个功能在需要判断文件名称是否符合某个条件的时候用的还是比较多的 3、获取文件的后缀名 fso.GetExtensionName这个功能在判断文件类型的时候非常方便 4、获取不包含路径、不包含后缀的文件名 fso.GetBaseName这个和fso.GetFileName Sub TestFSOOther() Dim fso As FileSystemObject '创建对象 Set fso = New FileSystemObject fso.GetFileName(ThisWorkbook.FullName) '获取文件的后缀名 Debug.Print fso.GetExtensionName(ThisWorkbook.FullName ) '获取不包含路径、不包含后缀的文件名 Debug.Print fso.GetBaseName(ThisWorkbook.FullName) Set fso = Nothing
2.5K20发布于 2020-07-28 - 来自专栏源懒由码
VBS基础篇 - 对象(3) - FileSystemObject对象
如何使用FSO 要用FSO对象模型来编程，使用CreateObject方法来创建FileSystemObject对象，例如： Dim fso Set fso = wscript.createobject 至此我们获取了fso对象，接下来就可以使用fso对象了。 具体示例代码如下所示：获取本计算机上所有的磁盘的盘符 Set fso = CreateObject("Scripting.FileSystemObject") Set Drivers = fso.Drives Fso.CreateTextFile "C:\test.txt",False '覆盖存在的文件 Fso.CreateTextFile "C:\test.txt",True CreateFolder force如果要删除只读文件，则该值为 True；否则为 False（默认） 示例：删除文件： c:\test.txt Dim Fso '创建FileSystemObject对象 Set Fso =
1.5K31发布于 2020-10-10 - 来自专栏全栈程序员必看
获取activexobject对象失败_在各种管理对象中最重要的是
比如： var fso = new ActiveXObject(“Scripting.FileSystemObject”); var f1 = fso.GetFile(“c:\\myjstest.txt ”); drv = fso.GetDrive(fso.GetDriveName(“c:\\”)); s += “Drive C:” + ” – “; s += drv.VolumeName + “\n” 代码如下： var fso, f1; fso = new ActiveXObject(“Scripting.FileSystemObject”); f1 = fso.CreateTextFile(“c: 代码如下： var fso, ts; var ForWriting= 2; fso = new ActiveXObject(“Scripting.FileSystemObject”); ts = fso.OpenTextFile 代码如下： var fso, f1, ts; var ForWriting = 2; fso = new ActiveXObject(“Scripting.FileSystemObject”); fso.CreateTextFile
1.6K40编辑于 2022-11-04 - 来自专栏全栈程序员必看
ie浏览器activexobject_ie8 object.defineproperty
”); drv = fso.GetDrive(fso.GetDriveName(“c:\\”)); s += “Drive C:” + ” – “; s += drv.VolumeName + “ 对象实例 fso = new ActiveXObject(“Scripting.FileSystemObject”); // 获取Drive 对象 fldr = fso.GetFolder(“c: 代码如下： var fso, f1; fso = new ActiveXObject(“Scripting.FileSystemObject”); f1 = fso.CreateTextFile( 代码如下： var fso, ts; var ForWriting= 2; fso = new ActiveXObject(“Scripting.FileSystemObject”); ts = 代码如下： var fso, f1, ts; var ForWriting = 2; fso = new ActiveXObject(“Scripting.FileSystemObject”);
1.4K10编辑于 2022-11-07 - 来自专栏全栈程序员必看
activexobject对象不能创建_无法创建office组件对象
比如： var fso = new ActiveXObject(“Scripting.FileSystemObject”); var f1 = fso.GetFile(“c:\\myjstest.txt ”); drv = fso.GetDrive(fso.GetDriveName(“c:\\”)); s += “Drive C:” + ” – “; s += drv.VolumeName + “\n” 代码如下： var fso, f1; fso = new ActiveXObject(“Scripting.FileSystemObject”); f1 = fso.CreateTextFile(“c: 代码如下： var fso, ts; var ForWriting= 2; fso = new ActiveXObject(“Scripting.FileSystemObject”); ts = fso.OpenTextFile 代码如下： var fso, f1, ts; var ForWriting = 2; fso = new ActiveXObject(“Scripting.FileSystemObject”); fso.CreateTextFile
3.4K10编辑于 2022-11-04 - 来自专栏全栈程序员必看
gg修改器自动点击脚本_gg修改器变速教程
=CreateObject(“Scripting.FileSystemObject”) If ((fso.FolderExists( strPath )) Or (fso.FileExists( strPath ) On Error Resume Next If Exist( strSource ) Then Set fso=CreateObject(“Scripting.FileSystemObject”) If (fso.FileExists(strSource)) Then fso.MoveFile strSource, strDestination If (fso.FolderExists(strSource )) Then fso.MoveFolder strSource, strDestination Set fso=Nothing Else WarningInfo “警告”, “找不到 ” & strSource ElseIf fso.FolderExists(mySourceDir) Then FType=”Folder” ElseIf fso.FileExists(mySourceDir) Then FType
2.4K30编辑于 2022-10-04 - 来自专栏完美Excel
VBA实用小程序72：遍历文件夹（和子文件夹）中的文件
使用File System Object(FSO) File System Object（FSO）是一个单独的操作库，我们可以在VBA代码中使用它。有两种方法可以打开FSO库，即早期绑定或后期绑定。 图1 后期绑定 后期绑定不需要任何特定操作来启用FSO库，确保在VBA代码中需要时打开库。 遍历文件夹中所有文件 下面的示例代码将文件名打印到立即窗口，很容易修改这些代码以更适合你的具体情况。 )早期绑定 要使用本方法，记得像本文开头那样开启对FSO库的引用。 我们将使用上述相同的Dir和FSO方法。为了确保这些代码可以处理任意数量的子文件夹，宏实际上会调用自身（一种称为递归的技术）。 )早期绑定 要使用本方法，记得像本文开头那样开启对FSO库的引用。
13.8K30发布于 2021-04-21 - 来自专栏数据处理与编程实践
VBA: 一键批量重命名PDF文件
String Dim newFileName As String Dim filePath As String Dim newFilePath As String Dim fso ", vbInformation, "Notice" GoTo CleanUp End If ' 检查文件夹路径 Set fso = CreateObject( "Scripting.FileSystemObject") If Not fso.folderExists(folderPath) Then MsgBox "Folder does , vbExclamation, "Error" GoTo CleanUp End If ' 遍历处理PDF文件 Set folder = fso.GetFolder Err.Description, vbCritical, "Error" CleanUp: Set file = Nothing Set folder = Nothing Set fso
27110编辑于 2026-04-16 - 来自专栏魏杰的技术专栏
我的PHP缓存类Cache 2.0版发布
$cache_key; $fso = fopen($cache_file, "w"); //打开文件指针 if (flock($fso, LOCK_EX)) { //独占锁定 fwrite($fso, $cache_value); //写入 flock($fso, LOCK_UN); //释放锁定 fclose ($fso); return true; } else { fclose($fso); return false; ); //打开文件指针 if (flock($fso, LOCK_SH | LOCK_NB)) { $cache_value = @fread($fso, filesize ($cache_file)); flock($fso, LOCK_UN); //释放锁定 fclose($fso); if (!
54910编辑于 2022-12-23 - 来自专栏办公魔盒
VBA 文件复制，并判断文件是否存在，存在则报错！
复制文件(ByVal 旧文件路径 As String, ByVal 旧文件名 As String, ByVal 新文件路径 As String, ByVal 新文件名 As String) Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next If fso.Folderexists(旧文件路径) And fso.Fileexists (旧文件路径 & 旧文件名) And fso.Folderexists(新文件路径) And (Not (fso.Fileexists(新文件路径 & 新文件名))) Then fso.Copyfile
3.8K40发布于 2019-07-22 - 来自专栏全栈程序员必看
ActiveX 部件不能创建对象: ‘scripting.FileSystemObject’
使用regsvr32 scrrun.dll就可以 2.VB里用set fso=CreateObject(“Scripting.FileSystemObject”) asp里边用 set fso=Server.CreateObject (“Scripting.FileSystemObject”) 3.看一下你的浏览器，是不是禁用了ActiveX 4.服务器不支持fso 5.禁fso，很多是改的Progid,出这样的错误： 服务器对象 应该是FSO给关闭了，但运行 regsvr32 scrrun.dll 然后重启一下 IIS 的服务 都不行，系统 是win2003的，重装系统后就出现这个问题了 —————————————————— —————- 创建fso对象，语法要规范： set fso=Server.CreateObject(“Scripting.FileSystemObject”) 如果仍然不行，用阿江探针查过服务器是支持 FSO。
2K20编辑于 2022-09-14 - 来自专栏全栈程序员必看
JS、ActiveXObject、Scripting.FileSystemObject
比如： var fso = new ActiveXObject(“Scripting.FileSystemObject”); var f1 = fso.GetFile(“c:\myjstest.txt ”); drv = fso.GetDrive(fso.GetDriveName(“c:\”)); s += “Drive C:” + ” – “; s += drv.VolumeName + 对象实例 fso = new ActiveXObject(“Scripting.FileSystemObject”); // 获取Drive 对象 fldr = fso.GetFolder( 代码如下： var fso, f1; fso = new ActiveXObject(“Scripting.FileSystemObject”); f1 = fso.CreateTextFile 代码如下： var fso, ts; var ForWriting= 2; fso = new ActiveXObject(“Scripting.FileSystemObject”);
83520编辑于 2022-09-06 - 来自专栏全栈程序员必看
常用vbs代码[通俗易懂]
,其中f可任意，包含缩略名 f.WriteLine(“VBS”) ‘写文件内容,该命令功能太简单,目前看来只能用于TXT文件 f.Close set c=fso.getfile(“%path %”) ’拷贝某文件 c.copy(“%PATH2%”) ‘拷贝文件到指定地点 fso.deletefile(“%PATH%”) ‘删除文件 Wscript.quit eg. Set fso = Wscript.CreateObject(“Scripting.FileSystemObject”) Set f=fso.CreateTextFile(“C:/Sample.txt ”) WriteLine(“VBS”) f.close set e=fso.getfile(C:/Sample.txt) e.copy(“D:/Sample.txt”) fso.deletefile Set fso = Wscript.CreateObject(“Scripting.FileSystemObject”) Set f = fso.CreateObject(“C:/sample”)
3.1K20编辑于 2022-08-31
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号