1. vb打开当前路径文件
答：VB复制指定文件到指定文件夹方法：
1、首先，打开或者新建一个Excel表格。
2、按下Alt+F11打开VBA编辑界面，并点击左侧任意工作表，出现右侧代码编辑
3、VBA中利用Filecopy函数实现文件的复制，被复制的文件路径作为函数第一个参数，而复制到的文件路径作为第二个参数，输入代码：
Sub 鱼木混猪()
FileCopy "D:\鱼木混猪.txt", "D:\ymhz.txt"
End Sub
4、点击代码中任意位置，然后点击“运行子程序”按钮
5、这样，到文件复制的文件夹中就可以看到，利用VBA将指定的文件复制了一份。
2. vbs 获取当前路径
vbs脚本是无法操作到Chrome浏览器内部的。你要么用IE，要么模拟鼠标在某位置上的点击。其实可以用JavaScript制作用于360Chrome的扩展程序，运行在360Chrome中。vbs早已是淘汰的技术了。
3. vb打开指定路径文件
用 CommonDialog 控件的 ShowOpen 和 ShowSave 方法可显示“打开”和“另存为”对话框：
Private Sub Command1_Click()' 设置“CancelError”为 TrueCommonDialog1.CancelError = TrueOn Error GoTo ErrHandler' 设置标志CommonDialog1.Flags = cdlOFNHideReadOnly' 设置过滤器CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"' 指定缺省的过滤器CommonDialog1.FilterIndex = 2' 显示“打开”对话框CommonDialog1.ShowOpen' 显示选定文件的名字MsgBox CommonDialog1.FileName '显示路径Exit SubErrHandler:' 用户按了“取消”按钮Exit SubEnd Sub
4. vb默认保存路径
Bas =Visual Basic Module 模块Cls=Visual Basic Class Module 类模块Frm=Visual Basic Form File 窗体Res=Compiled Resource Script 资源Vbp=Visual Basic Project 工程Vbw=Visual Basic Workspace 工作空间Scc=Microsoft SourceSafe Status 版本信息Frx=Visual Basic Form Binary File 窗体的二进制文件Ctl=Visual Basic User Control 用户控件
5. vb如何获取当前文件路径
VB6.0可使用CommonDialog 控件实现选择路径、打开路径。两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似代码实例：
6. vb 打开文件路径的代码
首先将文件显示做了区分：文件夹名称显示folderlist()，文件名称显示filelist():
Private Function folderlist(pathname As String, treeflag As Integer) 'treeflag:0列表 1树形 2树形展开
'文件夹数和名称
Dim sf As String
sf = Dir(pathname, vbDirectory) '获取第一个目录名
foldernum = 0
Do While sf <> ""
' 跳过当前的目录及上层目录
If sf <> "." And sf <> ".." Then
If (GetAttr(pathname + sf) And vbDirectory) = vbDirectory Then
If treeflag = 0 Then
Text2 = Text2 & sf & vbCrLf ' 如果它是一个目录，将其名称添加到列表
ElseIf treeflag = 1 Then
Text2 = Text2 & Treestr & sf & vbCrLf
ElseIf treeflag = 2 Then '树形展开的时候，需要了解子目录，所以还需进行递归调用
Text2 = Text2 & Treestr & sf & vbCrLf
folderlist pathname + sf, treeflag
filelist pathname + sf, treeflag
End If
foldernum = foldernum + 1 '统计文件夹数目
End If
End If
sf = Dir() ' 查找下一个目录
Loop
If treeflag = 0 Then
If foldernum <> 0 Then
Text2 = Text2 & vbCrLf & "======共有" & foldernum & "个文件夹======" & vbCrLf & vbCrLf
Else
Text2 = Text2 & "======无子目录======" & vbCrLf & vbCrLf
End If
ElseIf foldernum <> 0 Then
Text2 = Text2 & Nullstr & vbCrLf & Nullstr & vbCrLf
End If
End Function
Private Function filelist(pathname As String, treeflag As Integer) '0列表 1树形 2树形展开
'文件数和名称
Dim a As String
a = Dir(pathname & "/*.*")
filenum = 0
Do While a <> ""
If treeflag = 0 Then
Text2 = Text2 & a & vbCrLf
Else
Text2 = Text2 & Treestr & a & vbCrLf
End If
filenum = filenum + 1 '统计文件数目
a = Dir
Loop
If treeflag = 0 Then
If filenum <> 0 Then
Text2 = Text2 & "======共有" & filenum & "个文件======"
Else
Text2 = Text2 & "======无文件信息======"
End If
End If
End Function
- 相关评论
- 我要评论
-
