【纯源码】FileSystemObject 通过对象操作文件目录及文本读写【值得收藏】

a1401449265

厉害厉害  兼容性怎么样

wmt666

6666666666666

火威网络

轻装前行 发表于 2020-6-22 11:41
好的，fc变量是？多打了一个？
还有这个源码之前官方易论坛好像看到过，现在找不到了。之前不会就是你发 ...

fc 变量可以忽略。这是调试其他代码没有删除而已。

Canada

不错，微软https://docs.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/filesystemobject-object

Canada

火威网络 发表于 2020-6-20 10:02
感谢反馈：
[e=0].版本 2

好的，fc变量是？多打了一个？
还有这个源码之前官方易论坛好像看到过，现在找不到了。之前不会就是你发的吧

瘦瘦的小四

火威网络 发表于 2020-6-21 10:58
具体描述一下什么问题。

OpenTextFile (Path, 1, 真, -1)
.版本 2
' format 可选的。文件的格式。
' 0=TristateFalse - 以 ASCII 打开文件。默认。
' -1=TristateTrue - 以 Unicode 打开文件。
' -2=TristateUseDefault - 使用系统默认格式打开文件。
' 解释：Open a file as a TextStream

现在win10以上的系统 默认文本都是utf8.

火威网络

無上Triste 发表于 2020-6-21 00:46
utf8 可以解决一下吗

具体描述一下什么问题。

瘦瘦的小四

utf8 可以解决一下吗

火威网络

轻装前行 发表于 2020-6-17 16:36
movefolder没反应

感谢反馈：

  

子程序名	返回值类型	公开	备 注
MoveFolder
参数名	类 型	参考	可空	数组	备 注
Source	文本型				来源目录 如：D:\s*Folder\ ***注意要带结尾"\"
Destination	文本型				目标目录 如：D:\NewFolder\s*Folder\ ***注意要带结尾"\"

变量名	类 型	静态	数组	备 注
f	对象
fc	对象

如果真 (取反 (InitObj ()))
返回 ()
' SFO.方法 (“MoveFolder”, Source, Destination)
f ＝ SFO.读对象型属性 (“GetFolder”, Source)
f.方法 (“Move”, Destination)

.版本 2<br /> <br /> .子程序 MoveFolder, , 公开<br /> .参数 Source, 文本型, , 来源目录 如：D:\s*Folder\ ***注意要带结尾"\"<br /> .参数 Destination, 文本型, , 目标目录 如：D:\NewFolder\s*Folder\ ***注意要带结尾"\"<br /> .局部变量 f, 对象<br /> .局部变量 fc, 对象<br /> <br /> .如果真 (取反 (InitObj ()))<br />     返回 ()<br /> .如果真结束<br /> ' SFO.方法 (“MoveFolder”, Source, Destination)<br /> f ＝ SFO.读对象型属性 (“GetFolder”, Source)<br /> f.方法 (“Move”, Destination)

修改为这样即可移动目录。还要注意一个问题，结尾符号也要带上

Canada

movefolder没反应