如何使用FSO的CreateFolder在指定目录建立文件夹？

[没来]

问题一：
如题。窗体上有一个DriveListBox (Drive1), 一个DirListBox (Dir1)和一个确定按钮（cmdOK)。通过Drive1和Dir1选定目录后，按下cmdOK在选定的目录创建文件名为Temp1 ~ Temp10的10个文件夹。在使用CreateFolder时，如何指定想要创建文件夹的目标文件夹(Dir1.Path)？谢谢！

问题二：
VB中通过open创建一个txt顺序文件。在读取的时候如何读取指定行？比如创建的文件内容如下：
----------
False
True
255
黑体
----------
False是第一行的内容。我想读取第二行，并将其内容附值给一个Boolean，比如Text1.FontBold，如何写代码？

谢谢！

[没来]

谢谢5楼。
第一个问题：如果使用FileSystemObject的CreateFolder，代码应该怎么写？CreateFolder创建文件夹时可以指定目标文件夹的路径吗？

第二个问题：可能是我考虑的太简单，没把问题说完整。我也别不懂装懂了，完整的题目是这样：
窗体上有两上文本框，上面为Txt1，下面为Txt2，旁边“字体设置”cmdFont，下面“保存设置”cmdSave 和 “读取设置” cmdRead。“返回”、“退出”不用管。要求是按“字体设置”通过CommonDialog1对上面的文本框Txt1的内容进行字体、颜色、字号等等的设置，然后点“保存设置”保存Txt1文本内容的属性。点“读取设置”将Txt1的文本属性应用到Txt2内容的属性上。

“保存设置”按钮我是这样写的：
Private Sub cmdSave_Click() '保存按钮。此方法较笨
fileNo = FreeFile
Open "e:\temp\vb实例\VB_16-2.txt" For Output As fileNo
strLine = CommonDialog1.FontName '字体
strLine = strLine & vbCrLf & CommonDialog1.FontSize '字号
strLine = strLine & vbCrLf & CommonDialog1.FontBold '粗体
strLine = strLine & vbCrLf & CommonDialog1.FontItalic '斜体
strLine = strLine & vbCrLf & CommonDialog1.Color '颜色
strLine = strLine & vbCrLf & CommonDialog1.FontStrikethru '删除线
strLine = strLine & vbCrLf & CommonDialog1.FontUnderline '下划线
Print #fileNo, strLine
Close #fileNo
End Sub

“读取设置”的代码应该怎么写？谢谢！

[没来]

原来不能上传图片。。。。

[clear_zero]

第一个问题，可以
Dim fso As New FileSystemObject
fso.CreateFolder strFilepath
strfilepath就是你指定的文件夹名称以及完整路径

你这个是作业么？好好搜索下就有答案了

[zx097z]

#5楼 是给力的力巴

[没来]

谢谢10楼。算不上作业，是一人练习题。自己买了本书，跟着学，现在学到设计文件应用程序。

关于CreateFolder是这样写的：

Private Sub cmdOK_Click()  ‘按下“确定”按钮开始创建文件夹          
    Dim objFso As New FileSystemObject
    Dim i As Integer
    Dim folderName As String
    folderName = Dir1.Path
   'On Error Resume Next
    For i = 0 To 9
        objFso.CreateFolder ("Temp" & i + 1)  ‘题目要求使用DriveListBox和DirListBox随意选定文件夹然后在其下创建十个文件夹，名称分别是Temp1 ~ Temp10。文件夹创建没有问题，但不知道怎么创建在其他目录下。CreateFolder后面的代码如何加上路径？
    Next
    objFso.MoveFolder "temp*.*", Dir1.Path    '这是一个比较笨的方法：先创建然后移动。
End Sub

[clear_zero]

[Quote=引用 12 楼 freeparadise521 的回复:]

谢谢10楼。算不上作业，是一人练习题。自己买了本书，跟着学，现在学到设计文件应用程序。

关于CreateFolder是这样写的：
VB code

Private Sub cmdOK_Click() ‘按下“确定”按钮开始创建文件夹
Dim objFso As New FileSystemObject
Dim i As Integer
Di……
[/Quote]
对不起，我误会你了。
你第二个问题保存已经写好了
变量strLine 应该在form上面已经定义好了。读取的时候就是要分析这个变量里面的内容
你试试看
dim arr() as string
arr=split(strline,vbCrLf )
因为你的strline里面是根据vbCrLf 来分隔的，所以我们根据这个给他打开。然后就看到数组arr里面就是你需要的信息了
dim i as integer
for i=0 to ubound(arr)
debug.pring arr(i)
next

希望能帮到你

[没来]

Clear_zero

谢谢！不过还是不知道该如何分别附值给文本的各项属性。刚开始学，还没上道。。。自己写的代码如下：
Line Input #fileNo, strLine ‘打开文件，读取
Arr = Split(strLine, vbCrLf)
For i = 0 To UBound(Arr)
Txt2.Font =
Txt2.FontUnderline =
Txt2.FontBold =
Txt2.FontItalic =
Txt2.FontStrikethru =
Txt2.FontSize =
Next

如何将Arr(i)数组的元素附值给上面Txt2的属性？或许是我的思路不对。

[sihonglaoren]

谁送我些人人豆或者Q币，我就告诉他。

你这些问题我都会。

[sihonglaoren]

(1) mkdir语句
(2) open语句

我只能提示到这个程度了。

[没来]

sihonglaoren,不好意思，你需要的东西我都没有。

上面两个问题，你只需要提点一下就可以了：
问题1：文件夹可以成功创建，但目前只能在程序所在的目录下创建。如何通过Dir1在选定的目录下创建？

问题2：可以创建文本文件，但不知道怎么从指定行读取或如何指定希望读取的行内容。有一个比较笨的方法是创建二进制文件，将每条记录写入，然后分配一个变量（string, long和boolean），然后再读取变量，将变量值附值给不同文本属性，但这太繁琐，有没有一个比较简单的方法？

谢谢！

[sihonglaoren]

那你等楼下力巴帮你吧。

[赵4老师]

问题一：
shell "md d:\mydir1\mydir2\mydir3",vbHide
问题二：
Dim n as long
dim ln as string
open "..." for input as #1
n=0
ln=""
Do
line input #1,ln
if eof(1) then exit do
n=n+1
if n==2 then exit do'刚读了第2行的内容到ln中
Loop
close #1