Ⅰ 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 查找文件路径
你是要完成以下哪种工作?1、在本地磁盘中搜索QQ.EXE;2、查找当前正在运行的QQ.EXE的路径。对应1的回答:使用循环+Dir函数对应2的回答:使用以下API:openprocess,enumprocessmoles,getmolefilenameexa,closehandle,findwindow,getwindowthreadprocessid具体用法去查网络,到处都是
Ⅲ VB中如何获取当前程序的绝对路径
System.Environment.CurrentDirectory;
//例:c:/test/
Application.ExecutablePath;(包括名称)
//例:c:/test/myapp.exe
Application.StartupPath;(不包括名称)
//例:c:/test/
绝对路径是直接到达目标位置,通常是从盘符开始的路径。完整的描述文件位置的路径就是绝对路径,以web站点根目录为参考基础的目录路径。
绝对路径名的指定是从树型目录结构顶部的根目录开始到某个目录或文件的路径,由一系列连续的目录组成,中间用斜线分隔,直到要指定的目录或文件,路径中的最后一个名称即为要指向的目录或文件。之所以称为绝对,意指当所有网页引用同一个文件时,所使用的路径都是一样的。
(3)vb路径文件扩展阅读
几种编程语言获取程序所在路径的方法:
1、在golang程序里面获取程序所在路径:
package main
import (
"path/filepath"
"os"
"fmt"
"log"
)
func main() {
execDir, err := filepath.Abs(filepath.Dir(os.Args[0]))
if err = nil {
log.Fatal(err)
}fmt.Println(execDir)
}
2、python脚本所在路径:
import os
print(os.path.split(os.path.realpath(__file__))[0])
3、shell脚本获取脚本的绝对路径:
DIR="$( cd "$( dirname "${BASH_SOURCE[0]}" )" && pwd )"
Ⅳ vb中文件路径的格式是什么
vb6.0默认的工程文件保存路径是vb6.exe被安装的vb98目录夹下
Ⅳ 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的文件路径怎么表达
这一句是错的:FileName2 = "FileName3\a.epr"变量不能放在双引号内,否则被当成了文本,应该为:FileName2 = FileName3 & "\a.epr"
Ⅶ vb 选择文件 获取文件路径
首先在窗体中放置MicrosoftCommonDialogControl,名称指定为cdlg1。然后放一个按钮,内代码如容下:PrivateSubCommand1_Click()DimfnameAsStringDimcontentAsStringcdlg1.ShowOpenfname=cdlg1.FileNameMsgBoxfnameOpenfnameForInputAs#1Input#1,contentMsgBoxcontentClose#1EndSub
Ⅷ vb 如何通过一个文件的全路径获得该文件所在文件夹
'编写函数,获取PrivateFunctionGetLuJIn(ByValaAsString)AsStringDimiAsLongFori=Len(a)To1Step-1Ifmid(a,i,1)=""Then'获取最后一个""位置GetLuJin=Left(a,i-1)'函数返回最后一个""前面的东西ExitFunction'获取之后,函数没专什么事了,退出属EndifNextiEndFunction
Ⅸ vb 完整路径获取文件夹路径
Path = "c:\soft\中国人\setup.exe"For i = 1 To Len(Path)If Mid(Path, i, 1) = "\" Then Print Left(Path, i)Next i 或者:Path = "c:\soft\中国人\setup.exe"For i = 1 To Len(Path)If Mid(Path, i, 1) = "\" Then Text1.Text = Left(Path, i)Next i将路径存回放于答text1内
Ⅹ vb 获得数据库文件绝对路径
楼主把局对相对搞错了conn.Open"E:\zhangna\zuoye\6\双向词典.mdb"这是绝对路径相对的就是想对于"当前目录"的地址例如想对于当前.exe的路径就是app.path如果你的数据库放在同一路径下就conn.OpenApp.Path&"\双向词典.mdb"
未经允许不得转载:山九号 » vb路径文件|vb 选择文件 获取文件路径