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 完整路徑\名稱.擴展名, 完整路徑\文件夾\名稱.擴展名
這樣？