www.ymjm.net > VB如何获取文件名?

VB如何获取文件名?

可以借助FileListBox控件来实现.举个例子:Private Sub Form_Load() File1.Path = "D:\" File1.Pattern = "*.*" '显示所有类型的文件(如果想显示TXT文档就改为"*.txt" End Sub

Dim FName as String CommonDialog1.ShowOpen '通用对话框打开文件 FName = CommonDialog1.FileName Picture1 = LoadPicture(FName) MsgBox(FName)

Function fGetLast(ByVal originalString As String)As String Dim tmps() As String Dim delimeter As String Delimeter="\" '分隔符 tmps=Split(originalString,delimeter) fGetLast=tmps(UBound(tmps)) End Function 调用:ls = fGetLast("C:\a.txt")

返回一个 String,用以表示一个文件名、目录名或文件夹名称,它必须与指定的模式或文件属性、或磁盘卷标相匹配.语法 Dir[(pathname[, attributes])] Dir 函数的语法具有以下几个部分:部分 描述pathname 可选参数.用来指定文件名的字符串

下面函数是根据路径返回文件名 public function getfilename(fpath)dim fso: dim pname: dim psizeset fso = createobject("scripting.filesystemobject")if fso.fileexists(fpath) = true thenset pname = fso.getfile(fpath)getfilename = left(pname.name, len(

把以下代码复制到代码窗口, 要获取文件名时, 用这样的语句:msgbox GetPathFromFileName("C:\windows\text.txt")代码如下:

'请先引用 Microsoft Scripting Runtime Public ObjFso As New FileSystemObject dim name(),DestPath as string DestPath = "目录名" Set objFolder1 = ObjFso.GetFolder(DestPath) For Each objfolder2 In objFolder1.SubFolders Name(i)=objfolder2 i=i+1 Next

代码如下,假设你要获取"d:\"下的文件,只需将下面的foldername = "d:\"的"d:\"换为你要获取的目录就行了,另外filenames(100) 是存取文件名,要尽量大一些维数比你大文件多才行. private sub form_load() dim fname as string

它不是vb的内置对象,该对象包含在Scripting类型库中.选择工程--引用,选择Microsoft Scripting Runtime.第一个我不太清楚,第二个:Dim nfso As New FileSystemObject.

用filelist控件

友情链接:mwfd.net | tongrenche.com | rxcr.net | skcj.net | clwn.net | 网站地图

All rights reserved Powered by www.ymjm.net

copyright ©right 2010-2021。
www.ymjm.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com