VB怎么获取路径里的图片名

Posted 2023-05-09

比如，我在C盘的一个文件夹里放有许多图片，VB能把这C盘的所有图片都列出来吗？求源码谢谢！
我意思是，检查出来后把图片名字全放进一个文本框显示呢···
请问那个“Microsoft Scripting Runtime“在我的VB部件找不到怎么办？

以下代码放在bas模块中：

Public Declare Function FindFirstFile Lib "kernel32 " Alias "FindFirstFileA " (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32 " Alias "FindNextFileA " (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindClose Lib "kernel32 " (ByVal hFindFile As Long) As Long

'最大路径长度和文件属性常量的定义
Public Const MAX_PATH = 260
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100

'自定义数据类型FILETIME和WIN32_FIND_DATA的定义
Public Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Public Function fDelInvaildChr(str As String) As String
On Error Resume Next
Dim i As Long
For i = Len(str) To 1 Step -1
If Asc(Mid(str, i, 1)) <> 0 And Asc(Mid(str, i, 1)) <> 32 Then
fDelInvaildChr = Left(str, i)
Exit For
End If
Next
End Function

'遍历主函数
'参数说明:
' strPathName 要遍历的目录
' objList 使用VB的内部控件ListBox来存放遍历得到的路径
' strExt是扩展名
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
Public Sub sDirTraversal(ByVal strPathName As String, ByRef objList As ListBox, ByVal strExt As String)
Dim sSubDir(200) As String '存放当前目录下的子目录,下标可根据需要调整
Dim iIndex As Integer '子目录数组下标
Dim i As Integer '用于循环子目录的查找

Dim lHandle As Long 'FindFirstFileA 的句柄
Dim tFindData As WIN32_FIND_DATA '
Dim strFileName As String '文件名

On Error Resume Next
'初始化变量
i = 1
iIndex = 0
tFindData.cFileName = " " '初始化定长字符串

lHandle = FindFirstFile(strPathName & "\*. " & strExt, tFindData)
If lHandle = 0 Then '查询结束或发生错误
Exit Sub
End If
strFileName = fDelInvaildChr(tFindData.cFileName)
If tFindData.dwFileAttributes = &H10 Then '目录
If strFileName <> ". " And strFileName <> ".. " Then
iIndex = iIndex + 1
sSubDir(iIndex) = strPathName & "\ " & strFileName '添加到目录数组
End If
Else
objList.AddItem strPathName & "\ " & strFileName
End If
'循环查找下一个文件，直到结束
Do While True
tFindData.cFileName = " "
If FindNextFile(lHandle, tFindData) = 0 Then '查询结束或发生错误
FindClose (lHandle)
Exit Do
Else
strFileName = fDelInvaildChr(tFindData.cFileName)
If tFindData.dwFileAttributes = &H10 Then
If strFileName <> ". " And strFileName <> ".. " Then
iIndex = iIndex + 1
sSubDir(iIndex) = strPathName & "\ " & strFileName '添加到目录数组
End If
Else
objList.AddItem strPathName & "\ " & strFileName
End If
End If
Loop
'如果该目录下有目录，则根据目录数组递归遍历
If iIndex > 0 Then
For i = 1 To iIndex
sDirTraversal sSubDir(i), objList, strExt
Next
End If
End Sub

以下代码放在窗体中，需要一个list1和一个command1:

Private Sub Command1_Click()
Call sDirTraversal( "c:\windows ", List1, "bmp ")
End Sub

===================
这个算很简单吧，1，新建个类模块，放入代码。2.在窗体嵌入代码。
这个算法是比较快的。
顺便说一下。Microsoft Scripting Runtime 不是部件，是在菜单里面 工程 - 引用部件 里面选的。 采纳我吧，解决你2个疑问。嘻嘻。 参考技术A 原理是：把整个路径当作一个字符串，然后从右往左检索，当查到第一个反斜杠时，它右边的全部内容就是一个文件名。
如：设一个图片的完整路径是path1="d:\photo\mine\work001.jpg"
从右往左检索到第一个“\”出现的位置（位于e与w之间，即第14个字符的位置），那么从第15个字符后面的字符即是图片名。 参考技术B 用File控件，把类型改为JPG.GIF等,Path设为目标文件夹
就可以得到图片列表 参考技术C '工程引用：Microsoft Scripting Runtime
Sub rename()
Dim fso As FileSystemObject
Dim fd As Folder
Dim f As File
Dim fn As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set fd = fso.GetFolder("C:/图片") '图片文件夹路径
For Each f In fd.Files
fn = f.Name '图片名称
Print fn
Next
Set fso = Nothing
Set fd = Nothing
Set f = Nothing
End Sub本回答被提问者采纳

asp.net上传图片到服务器路径的问题？

我用VS2003（VB）做了一个上传图片的功能，现在问题是，我在本地调试时候 uploadfile.PostedFile.SaveAs(Server.MapPath("../image/") & "XXX.jpg")这句中filepath解析后是：C：\inteput\wwwroot\image\XXX.jpg。我服务器根目录是/fqueen.我的所有文件放在这个根目录下边的。那我的上传语句该怎么写啊，我现在给路径搞晕了！
====================================================================
以下我上传部分代码：
Dim filename, filepath As String
If uploadfile.Value <> "" Then
filename = Path.GetFileName(uploadfile.value) '源图片文件名
filepath = Server.MapPath("../image/") & dl1.SelectedValue & "/" & filename '上传路径
uploadfile.PostedFile.SaveAs(filepath) ----->'这句代码出错了。
。。。。。。。。。。。。。。。。。。。。。。
====================================================================
希望有人能帮我解答这个问题，谢谢了！！！
================================================================
上边可能说得不很清楚我给个例子：
假如我的网站的根目录是： /fqueen
在它下边有个image文件夹（上传图片存放的位置），如图：
在web_eng里边有个上传页面upload.aspx.
现在想在点击上传页面upload.aspx，将图片上传到image文件夹里边去。代码应该怎么写呢?请指教！！！
如果我的上传页面upload.aspx在其他文件夹里边，那上传路径是不是也一样的呢？？
=================================================================================

应该这样写：
filepath = Server.MapPath("~")&"/image/"& dl1.SelectedValue & "/" & filename '上传路径 ，这样即使是把网站放在虚拟目录下页没问题

你只要记住一点：Server.MapPath()方法是获取你服务器上你存放文件的物理地址，假如你把网站根目录指向d:\wwwroot\fqueen,那么就可以通过 Server.MapPath("~")的方法获得你的这个根目录。
当然也可以用HttpContext.Current.Request.MapPath()的方法，不过要注意路径。

补充：
======================================
即使你的upload.aspx在web_eng下(web_eng/upload.aspx)，使用上面的方法也一样的，因为filepath = Server.MapPath("~")&"/image/" 就是指向你的服务器物理地址：d:\wwwroot\fqueen\images 的，所以无论你将upload.aspx文件放在什么目录下，上传文件的路径都是正确的。 参考技术A string str = Path.GetFileNameWithoutExtension(FileUpload1.FileName);//获取当前文件名
path = HttpContext.Current.Request.MapPath("~/upFile/");//获取当前网站路径
FileUpload1.SaveAs(path + FileUpload1.FileName);//将文件保存到 我所建的网站的路径下。

++++++++++++++++++++++++++++
string path=HttpContext.Current.Request.MapPath("~/upFile/");//这个就是比如你那个bin文件夹。你的图片 image文件夹

你上传这样 saveas(path+"文件名")；