创建文件夹的方法是什么？

Question

Mkdir App.Path & "\mydir"VB下打开一个Word文件
1 用OLE
2 API: ShellExecute
3 CreateObject("Word.Application") 
  .........

Answer 1

引用Microsoft scripting Runtime
    Microsoft office （版本号） object library '需要安装OFFICEDim fso As New FileSystemObject
Dim fodset fod=fso.createfolder(app.path & "\" & foldername)
可以创建一个目录Dim objword As New word.Application
Dim objdoc As New word.Documentobjword.Visible = False
Set objdoc = objword.Documents.Open(filename)
objword.ActiveDocument.content.SetRange 1, Len(objword.ActiveDocument.content)
Clipboard.Clear
objword.ActiveDocument.content.Copy可以在后台调用WORD打开文件，并将文件内容复制到剪贴版
之后调用“粘贴”就能在你的程序中将WORD文档的内容显示出来。
注意，这样复制将保留所有格式，也就是是说里头的非文本信息也进入了剪贴版，调用粘贴时小心了不能用GETTEXT方法了这是调用粘贴的API函数，可以粘贴任何内容
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long调用： SendMessage target.hwnd, &H302, 0, ByVal 0&