| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 270 人关注过本帖
标题:VB文件夹建立问题
只看楼主 加入收藏
laohuvvv
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2018-12-18
结帖率:100%
  已结贴   问题点数:20  回复次数:2   
VB文件夹建立问题
Private Sub Command1_Click()
Dim path As String
path = Text1.Text

 Open path For Output As #1
  Print #1, 0.123
  Close
End Sub
我编的一个给一个记事本文件写数据小程序,问下我从text1.text里面输入文件路径后,
如果没有相应的文件夹,怎么实现自动生成路径下的文件夹?
比如:f:\1\2\3\1.txt里面 文件夹1、2、3在f盘符下是没有的,怎么从VB里实现自动生成呢?
2018-12-21 16:09
suzhanpeng
Rank: 4
等 级:业余侠客
威 望:6
帖 子:58
专家分:203
注 册:2016-9-28
  得分:10 
Open path For Output As #1
    If Dir(path, vbHidden + vbReadOnly + vbSystem) = "" Then    '如果不存在
        MkDir(path)    '创建文件夹
    End if
    Print #1, 0.123
Close
这是最后一个文件夹不存在的方法,如果中间的文件夹也不存在,你就查找"\" 出现的位置,逐层截取文件夹路径,然后判断,建立。
   
   

[此贴子已经被作者于2018-12-21 16:48编辑过]

2018-12-21 16:37
icecool
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:20
帖 子:1203
专家分:1309
注 册:2005-3-14
  得分:10 
Private Sub Command1_Click()
Dim path As String
path = Text1.Text
pt = Split(path, "\")
repath = pt(0)
If InStr(pt(UBound(pt)), ".txt") = 0 Then
   MsgBox "没有输入文件名"
   Exit Sub
Else
   c = UBound(pt) - 1
End If

For i = 1 To c
    repath = repath & "\" & pt(i)
    If Dir(repath, vbDirectory) = "" Then
       MsgBox repath & "不存在,已建立"
       MkDir (repath)
    End If
Next
       repath = repath & "\" & pt(UBound(pt))
       Open repath For Output As #1
       Print #1, 0.123
       Close
End Sub

loading...
2018-12-21 17:31







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.077155 second(s), 9 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved