vb怎麼把文件名讀出來

Ⅰ vb 讀取打開的文件名

'給你一個函數根據文段高件地址獲取文件名

FunctionfGetLast(ByValoriginalStringAsString)AsString

Dimtmps()AsString

DimdelimeterAsString

delimeter=""'分隔符

tmps=Split(originalString,delimeter)

fGetLast=tmps(UBound(tmps))

EndFunction

PrivateSubCommand1_Click()

DimaAsString

a="C:天怒娛樂握襪尺完美楓楓.txt"'例如a是這個路徑

Form1.Caption=fGetLast(a)&好行"-記事本"'我調用A////fGetLast(文件的地址)

EndSub

Ⅱ vb 怎樣讀取一個文件夾裡面的指定類型的所有文件的名稱

可以實現
可以藉助文件列表框來實現
首先加入一個FileListBox 控制項,然後加入一下程序
Private Sub Command1_Click()
File1.Path = "C:\Documents and Settings\Administrator\桌面\新建文件夾" '指定一個文件夾
File1.Pattern = "*.txt" '指定文件類型
Dim i As Integer
For i = 0 To File1.ListCount - 1 從列表框的第一個項目找到最後一個項目
Print File1.List(i) '依次輸出該文件夾中指定類型的文件名,可以按照自己的需要輸出到一個文本文件中,或者自己其他指定
Next i
End Sub

如果需要,可以把該控制項的visible屬性誰為false,把控制項隱藏

Ⅲ 怎樣用VB獲取文件的文件名（不要包含擴展名）

這樣來就可自以啦，幹嘛要這么麻煩呢？ Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As String
a = System.IO.Path.GetFileNameWithoutExtension("c:\windows\test123.txt123")
Me.Text = a End Sub

Ⅳ VB讀取文件名怎麼弄啊，就是把文件的文件用讀出來啊！！！求解，比如D盤有一個文件夾叫做

通常有三種編碼類型
ANSI（本地編碼國家的）
統一碼（Unicode文本文件，解釋勒（頭2個位元組255,254）和BE（包頭解釋的2個位元組254,255）兩個版本），
UTF-8（Unicode寬字元集），簽名版（頭）解釋UTF-8位元組239187191

Web編碼通常有兩種，UTF-8（沒有文件頭）和ANSI。

我也寫一個批處理軟體（下載地址見參考資料），包括內置的文本閱讀器和文本的批量處理功能，支持ANSI，UTF-8和Unicode解析（選擇純文本文件中，右鍵單擊菜單[可調節的閱讀文本]菜單項了）。

頁文件頭（不知道為什麼沒有放下制服的頭），它是很難確定它是什麼類型的編碼是UTF-8或ANSI，所以我選擇了在此期間的判斷頁面的代碼[text / html的字元集= UTF-8] [字元集= UTF-8]存在或UTF-8解碼輸出，否則ANSI

Ⅳ vb或易語言中如何遍歷c盤中的文件夾，注意只是文件夾，把文件名讀出來

On Error Resume Next
Dim str1 As String, str2
Set fso = CreateObject("Scripting.FileSystemObject")
Set Folders = fso.GetFolder("c:\")
Set fFolder = Folders.SubFolders
Set fFile = Folders.Files
For Each fffolder In fFolder
str1 = str1 & " " & fffolder.Name
Next
MsgBox str1 '遍歷輸出c盤所有文件夾名
For Each fffile In fFile
str2 = str2 & " " & fffile.Name
Next
MsgBox str2 '遍歷輸出c盤所有文件名

Ⅵ VB如何獲取文件名

VB6.0可以使用CommonDialog 控制項實現獲取文件路徑並使用Split函數獲取文件全名。

CommonDialog 控制項

CommonDialog 控制項提供一組標準的操作對話框，進行諸如打開和保存文件，設置列印選項，以及選擇顏色和字體等操作。

通過使用 CommonDialog 控制項的 ShowOpen 和 ShowSave
方法可顯示「打開」和「另存為」對話框。

兩個對話框均可用以指定驅動器，目錄，文件擴展名和文件名。除對話的標題不同外，另存為對話外觀上與打開對話相似。

Split函數，

返回一個下標從零開始的一維數組，它包含指定數目的子字元串。

代碼實例：

PrivateSubCommand1_Click()
DimsplitStr
CommonDialog1.CancelError=True'設置「CancelError」為True
OnErrorGoToErrHandler
CommonDialog1.Flags=cdlOFNHideReadOnly'設置標志
'設置過濾器
CommonDialog1.Filter="AllFiles(*.*)|*.*|TextFiles"&"(*.txt)|*.txt|BatchFiles(*.bat)|*.bat"
CommonDialog1.FilterIndex=2'指定預設的過濾器
CommonDialog1.ShowOpen'顯示「打開」對話框
'顯示選定文件的名字
MsgBoxCommonDialog1.FileName
splitStr=Split(CommonDialog1.FileName,"")
MsgBoxsplitStr(UBound(splitStr))
ErrHandler:
'用戶按了「取消」按鈕
ExitSub
EndSub

第一句Msgbox顯示文件路徑。