请问如何获取一个完整路径所在的文件夹

zz999 · 发表于 2010-1-11 16:43:48

本帖最后由 zz999 于 2010-1-11 19:28 编辑

我不知道怎么表述!

举例子哈!

比如一个文件是
c:\aaa\111\bbb\0112.txt

这是获取INPUT的内容,是用户输入的,可能是任何路径,任意文件名!
怎么获取这个路径是否存在
不存在则创建!

afan · 发表于 2010-1-11 16:47:53

本帖最后由 afan 于 2010-1-11 18:24 编辑

$Path = 'c:\aaa\111\bbb\0112.txt'
$Dir = StringRegExpReplace($Path, '\\[^\\]+$', '')
If Not FileExists($Dir) Then DirCreate($Dir)

jycel · 发表于 2010-1-11 17:15:26

本帖最后由 jycel 于 2010-1-11 17:16 编辑

#Include <File.au3>
$file="c:\aaa\111\bbb\0112.txt "
If Not FileExists($file) Then _FileCreate($file)

sanmoking · 发表于 2010-1-11 17:42:50

楼上正解

其实你直接加一句
DirCreate ( "路径" )
就行了，如果该路径存在，你再创建一个也没关系，如果不存在，那就创建好了。

jycel · 发表于 2010-1-11 17:45:02

DirCreate为创建目录或文件夹！无法创建文件
直接用_FileCreate就全搞定！

afan · 发表于 2010-1-11 17:51:09

创建文件肯定不是为了摆看而是为了读写操作吧 ~ 如果如此，FileOpen就省去单独去创建了~
FileOpen ( "文件名", 模式 ) 模式8 = 如果目标目录不存在就创建

gapkiller · 发表于 2010-1-11 18:13:02

我看大家都误解楼主的意思了
楼主应该是想要判断路径,而不是文件.
文件可能本来就没有,而是要创建的文件....
Faint

afan · 发表于 2010-1-11 18:25:26

我看大家都误解楼主的意思了
楼主应该是想要判断路径,而不是文件.
文件可能本来就没有,而是要创建的文件. ...
gapkiller 发表于 2010-1-11 18:13

可能的确如此

$Path = 'c:\aaa\111\bbb\0112.txt'
$Dir = StringRegExpReplace($Path, '\\[^\\]+$', '')
If Not FileExists($Dir) Then DirCreate($Dir)

zz999 · 发表于 2010-1-11 19:11:42

还是AFAN超版了解我的心哈哈
还真的只能用正则!

zz999 · 发表于 2010-1-11 19:15:26

回复 8# afan

对了
A兄,如果这个路径超出范围了
返回值应该是多少呢?

afan · 发表于 2010-1-11 19:25:12

回复 10# zz999

$Path = 'c:\aaa\111\bbb\0112.txt'
$Dir = StringRegExpReplace($Path, '\\[^\\]+$', '')
If Not FileExists($Dir) Then
      $DC = DirCreate($Dir)
      If $DC = 0 Then Msgbox(0, 0, '创建目录 ' & $Dir & ' 遇到错误')
Endif

zz999 · 发表于 2010-1-11 19:26:36

谢谢A! 爱死你了!

		自动登录	找回密码
密码			加入

请问如何获取一个完整路径所在的文件夹

评分

评分

评分