『壹』 vb6如何获取要打开的文件路径
这个是操作系统完成的，你需要懂得命令行参数双击打开文件的时候，相当于版命令里敲xxx.exe 被打权开的文件名在vb代码里，需要处理命令行参数（第一个参数就是文件名）vb的我不知道怎么写，但c或者c# java的都是在main函数的参数里
『贰』 vb怎么打开文件夹
1、点击对话框下菜单，点击打开文件对话框。
『叁』 vb 打开文件的路径允许变量吗
num=23b=app.path&"\"&trim(str(num))&".txt"'这里注意问题有二：一个是num转换传字符串后有一个前导空格必须去掉；二一个是文件扩展名和所在文件夹分别拼接在两头，并不要忘记了分隔符号openbforappendasnum'这里不要#符号你这样试试看，应该没有问题。如再有问题，你可以直接联系我。
『肆』 VB里要打开一个文件要路径,app.path 什么意思啊
app.path指的是你的VB程序所在的文件夹。如果你要打开的文件和你的程序在同一个文件夹下，那就可以这样app.path＆"\文件名"
『伍』 vb 获取文件所在路径
添加一个模块，模块里写：
SubMain()DimstrCmdAsStringstrCmd=Command()Form1.Label1.Caption=strCmdForm1.ShowEndSub
然后，在“工程”－“属性”－“通用”里设置启动对象为Sub Main()
『陆』 VB 获取进程打开的文件路径
张志晨：好课题，值得研究一下。 要想获取一个当前运行的exe程序的完整路径很好办，但是想获取这个exe程序打开的文档就不好办。比如你想获取Word当前正在编辑的完整路径与文件名，除非这个Word是你的程序打开的，否则，你搜索一下可不可以向Word、Excel发送消息，让它返回这个文件名，估计希望不大。。。'根据进程号获取进程路径函数 Private Declare Function OpenProcess Lib "kernel32.dll " (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function EnumProcessMoles Lib "psapi.dll " (ByVal hProcess As Long, ByRef lphMole As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long Private Declare Function GetMoleFileNameExA Lib "psapi.dll " (ByVal hProcess As Long, ByVal hMole As Long, ByVal MoleName As String, ByVal nSize As Long) As Long Private Declare Function CloseHandle Lib "kernel32.dll " (ByVal hObject As Long) As Long Function GetProcessPathByProcessID(PID As Long) As String On Error GoTo Z Dim cbNeeded As Long Dim szBuf(1 To 250) As Long Dim Ret As Long Dim szPathName As String Dim nSize As Long Dim hProcess As Long hProcess = OpenProcess(&H400 Or &H10, 0, PID) If hProcess <> 0 Then Ret = EnumProcessMoles(hProcess, szBuf(1), 250, cbNeeded) If Ret <> 0 Then szPathName = Space(260) nSize = 500 Ret = GetMoleFileNameExA(hProcess, szBuf(1), szPathName, nSize) GetProcessPathByProcessID = Left(szPathName, Ret) End If End If Ret = CloseHandle(hProcess) If GetProcessPathByProcessID = " " Then GetProcessPathByProcessID = "SYSTEM " End If Exit Function Z: End Function
『柒』 VB获取文件路径
VB2008测试通过 Imports System Imports System.IO Imports System.Threading Imports System.Windows.Forms Public Class FrmMainDim newSearcher As getFileByName Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loadrball.Checked = Truetbpath.Text = ""tbpath.Enabled = Falsebtndlg.Enabled = FalseEnd Sub Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Clicktv.Nodes.Clear()btnOK.Enabled = FalsebtnExit.Enabled = FalseIf rball.Checked Thenrun()ElseIf tbpath.Text = "" ThenMsgBox("请输入或者选择一个路径")Exit SubElserun(tbpath.Text)End IfEnd IfEnd Sub Private Sub btndlg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndlg.Clickfbdlg.RootFolder = Environment.SpecialFolder.MyComputerfbdlg.ShowDialog()tbpath.Text = fbdlg.SelectedPathEnd Sub Private Sub rbchs_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbchs.CheckedChangedIf rbchs.Checked = True Thentbpath.Enabled = Truebtndlg.Enabled = TrueElsetbpath.Enabled = Falsebtndlg.Enabled = FalseEnd IfEnd Sub Private Sub run()If tbfileName.Text = "" ThenMsgBox("请输入文件名称")btnOK.Enabled = TruebtnExit.Enabled = TrueExit SubElsenewSearcher = New getFileByName(tbfileName.Text)newSearcher.GetDrivers()tmr.Enabled = Truetmr.Interval = 10End IfEnd Sub Private Sub run(ByVal path As String)If tbfileName.Text = "" ThenMsgBox("请输入文件名称")btnOK.Enabled = TruebtnExit.Enabled = TrueExit SubElsenewSearcher = New getFileByName(tbfileName.Text)newSearcher.SearchFolder(path)tmr.Enabled = Truetmr.Interval = 50End IfEnd Sub Private Sub tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr.TickLblshow.Text = newSearcher.currentPathIf newSearcher.cntThread = 0 And newSearcher.isDone Then'MsgBox(newSearcher.getFile.ToString)'MsgBox("全部线程结束")For Each Str As String In newSearcher.getFiletv.Nodes.Add(Str)Next'For i As Integer = 0 To newSearcher.getFile.Length – 1'tv.Nodes.Add(newSearcher.getFile(i))'Nexttmr.Enabled = FalsebtnExit.Enabled = TruebtnOK.Enabled = TrueEnd IfMy.Application.DoEvents()End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.ClickMe.Close()End Sub End Class
『捌』 VB怎么实现选择路径，打开路径
VB6.0可使用CommonDialog 控件实现选择路径、打开路径。
通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave 方法可显示“打开”和“另存为”对话框。
两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似
代码实例：
PrivateSubCommand1_Click()'设置“CancelError”为TrueCommonDialog1.CancelError=TrueOnErrorGoToErrHandler'设置标志CommonDialog1.Flags=cdlOFNHideReadOnly'指定缺省的过滤器CommonDialog1.FilterIndex=2'显示“打开”对话框CommonDialog1.ShowOpen'显示选定文件的名字MsgBoxCommonDialog1.FileNameExitSubErrHandler:'用户按了“取消”按钮ExitSubEndSub
『玖』 VB 如何设置打开文件位置
不知道你具体的限制要求是什么，我的理解就是获得你选中的文件信息．这个方法应该不止一种，比如：使用工具箱上的三个控件：DriveListBox 控件DirListBox 控件FileListBox 控件代码如下就返回选中的文件标识符：Private Sub File1_Click()MsgBox Dir1.Path & "\" & File1.FileNameEnd Sub
『拾』 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
未经允许不得转载：山九号 » vb打开文件的路径|VB怎么实现选择路径打开路径
