vb获取文件名

1. 如何让vb得到file1选中的文件名

那就直接text1=file1.filename就行了。
file1选中的文件名是不带路径的，如果那样你需要加上文件路径的，建议用commondialoge控件。

2. 怎样用vb获取exe自身的文件名

Dim str As String
str = IIf(Len(App.Path) > 3, App.Path & "\" & App.EXEName & ".exe", App.Path & App.EXEName & ".exe") str 就是EXE文件的路径了。搞这么复杂是因为当EXE文件在根目录下的时候，app.path 是带有“\”，不在根目录下的时候没有。

3. vb 拖放文件获取文件名和内容

用控件伪装成TEXT1比较简单
'加一个List控件，属性
List1.OLEDragMode = 1
List1.OLEDropMode = 1

设全局变量 FileName 或者从list中获取文件名，感觉全局变量要方便些。
dim FileName as string
Private Sub list1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 1 To Data.Files.Count - 1
FileName = Data.Files(i) '获得文件名
List1.AddItem FileName '显示文件
Next
End Sub

text2 设置成多行显示
MultiLine属性设置为TRUE
在list change事件中
Open 路径\FileName For Input As #1
Do While Not EOF(1) ‘逐行读取
Input #1, b
Loop
Text2.Text = b

4. 用VB怎样获取一个文件夹内所有文件名

VB可以使用FileListBox 控件来获取指定文件夹内的所有文件名。

FileListBox 控件，在运行时团丛弯，在 Path 属性指定的目录中，FileListBox 控件将文件定位并列举出来。该控件用来显示所选择文件类型的文郑凳件列表。例如，可以在应用程序中创建对话框，通过它选择一个文件或者一组文件。

以下是组合使塌闷用DriveListBox 、控件DirListBox 控件和FileListBox 控件来获取硬盘下任何一个文件夹内的文件名。

PrivateSubDir1_Change()
File1.Path=Dir1.Path
EndSub

PrivateSubDrive1_Change()
Dir1.Path=Drive1.Drive
EndSub

PrivateSubFile1_Click()
DimiAsLong
Debug.Print"目录夹内存在"&File1.ListCount&"个文件。"
EndSub

5. vb.net从文件路径中获取文件名

获取方法，参考实例如下：
'获取路径名各部分: 如： c:\dir1001\aaa.txt
'获取路径路径 c:\dir1001\
Public Function GetFileName(FilePathFileName As String) As String '获取文件名 aaa.txt
On Error Resume Next
Dim i As Integer, J As Integer
i Len(FilePathFileName)
J InStrRev(FilePathFileName, "\")
GetFileName Mid(FilePathFileName, J + 1, i)
End Function
''获取路径路径 c:\dir1001\
Public Function GetFilePath(FilePathFileName As String) As String '获取路径路径 c:\dir1001\
On Error Resume Next
Dim J As Integer
J InStrRev(FilePathFileName, "\")
GetFilePath Mid(FilePathFileName, 1, J)
End Function
'获取文件名但不包谈磨括扩展名 aaa
Public Function GetFileNameNoExt(FilePathFileName As String) As String '获取文件名但不包括扩展名 aaa
On Error Resume Next
Dim i As Integer, J As Integer, k As Integer
i Len(FilePathFileName)
J InStrRev(FilePathFileName, "\")
k InStrRev(FilePathFileName, "裤顷.")
If k 0 Then
GetFileNameNoExt Mid(FilePathFileName, J + 1, i - J)
Else
GetFileNameNoExt Mid(FilePathFileName, J + 1, k - J - 1)
End If

End Function

'＝＝＝＝＝ '获取扩展名含纯斗 .txt
Public Function GetFileExtName(FilePathFileName As String) As String '获取扩展名 .txt
On Error Resume Next
Dim i As Integer, J As Integer
i Len(FilePathFileName)
J InStrRev(FilePathFileName, ".")
If J 0 Then
GetFileExtName ".txt"
Else
GetFileExtName Mid(FilePathFileName, J, i)
End If
End Function

6. VB6.0如何获取拖入的文件路径和文件名并赋值与变量呢

fso.file 完整路径\名称.扩展名, 完整路径\文件夹\名称.扩展名
这样？