vb文件夹操作

vb文件夹操作



'遇到错误，直接执行下一行。
On Error Resume Next


此程序目录 = App.Path
此程序文件名 = App.EXEName & ".exe"
此程序准确途径 = 此程序目录 & "\" & 此程序文件名

====================================================

’【创建文件夹】
MkDir "E:\1"


'【赋值文件夹内容到另一个文件夹】'文件夹不存在就自动创建
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "C:\1", C:\2


’【移动文件夹】
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFolder "C:\1", "C:\2\1"

'【删除文件夹】
Set fso = CreateObject("Scripting.FileSystemObject")
fso.deletefolder "E:\1"
'如果 该文件夹 无法删除 说明 文件夹里的某个或多个
'文件名中 含有VB不能判断的字符 如 UG 开头  (UG.TXT、UG.bmp...等等)

’【删除 空的文件夹】
RmDir "E:\1" 【必须是空的文件夹】

’【改文件夹名】
Name "E:\1" As "E:\2"

’【判断文件夹是否存在】
Private Sub Command1_Click()
If Dir("c:\1", vbDirectory) <> "" Then
MsgBox "存在"
Else
MsgBox "不存在"
End If
End Sub
  

'取文件和文件夹信息

'取文件信息
Set fs = CreateObject("Scripting.Filesystemobject") '创建FileSystemObject 对象
Set fsa = fs.GetFile("C:\1.txt")       '取文件信息
Set fsb = fs.getfolder("C:\windows")   '取文件夹信息

MsgBox "文件创建时间：" & fsa.DateCreated
MsgBox "文件夹创建时间：" & fsb.DateCreated



'返回指定路径文件所对应的 File 对象
'DateCreated         属性返回该文件夹的创建日期和时间
'DateLastModified    属性返回最后一次修改该文件的日期和时间
'DateLastAccessed    属性返回最后一次访问该文件的日期和时间


'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
'◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇
j="C:\UG中文途径打开方式.exe"
Shell j       '打开文件、文件夹，调用程序等
'◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇◇


VB 调用其它程序

Shell ("notepad")              '打开无标题记事本  
Shell "explorer.exe D:\"        '打开网页 '打开文件、文件夹’


Call Shell(App.Path & "\123.exe", vbNormalFocus)'调用exe
Call Shell(App.Path & "\123.bat", vbNormalFocus)'调用批处理

【App.Path 指此程序目】【此程序无论在那都行】
如：App.Path & "\123.txt"

'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★

'VB 调用其它程序 列
Private Sub Command1_Click()
fff=(App.Path & "\123.bat"

If Dir(strFileName) = "" Then GoTo ff '【判断文件不存在 就跳到ff:】
Call Shell(fff, vbNormalFocus)        '调用批处理

ff:
End
End Sub

'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
'注意！
【VB调用 程序】 调用的程序余VB程序 是同时进行的

【UG里GRIP调用 程序】 会等带 调用的程序 结束后在 执行

【VB调用 程序】 和 【UG里GRIP调用 程序】 恰恰相反


_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/