fileexists(fileExists())

很多朋友对于fileexists和vbs脚本 fileExists()不太懂，今天就由小编来为大家分享，希望可以帮助到大家，下面一起来看看吧！

delphi代码解析fileexists('.\setup.ini')应该先用：

chdir(getcurrentdir);

设置程序所在目录为默认目录，后面就不需要设置和检测目录了。

或者类似用：

Create(getcurrentdir+'\setup.ini');

vbs脚本 fileExists()

不要学这些怪象：

iffso.fileexists(“c:\kk.txt”)=0then'表示不存在的时候执行

正确的书写方法：

ifnotfso.fileexists(“c:\kk.txt”)then

vbs创建文件夹

dimpathname,filename,fso,read,str,filepath

setfso=createobject("scripting.filesystemobject")

pathname="path.txt"

str="ShutdownScript\remotecomputer.txt"

iffso.fileexists(pathname)=truethen'先来判断它是一个有效的路径+文件,如果成立,以下均按正常程序执行

read=fso.opentextfile(pathname).readall'读取全文

foreachiinsplit(read,vbcrlf)'遍历全文每行的内容

ifinstr(right(i,1),"\")=0thenfilename=i&"\"&strelsefilename=i&str'在执行下面代码之前先进行格式化处理文本

filepath=left(filename,instrrev(filename,"\"))'分离路径

iffso.folderexists(filepath)=falsethenfso.createfolderfilepath'如果路径存在则创建文件夹

iffso.fileexists(filename)=falsethenfso.createtextfile(filename).write"test"'如果文件存在则创建文件写入test

next

endif

好了，文章到这里就结束啦，如果本次分享的fileexists和vbs脚本 fileExists()问题对您有所帮助，还望关注下本站哦！