Question

如何用VB选择读出某个文件夹下所有文件的名称，去掉JPG 写入相应的DBF，急用啊，希望能给出代码，谢谢啊！

就是读出文件夹中的图片名字，图片格式是jpg，然后把这些图片的名称导出，要去掉.JPG这个后缀，导入vf，用dbf这种格式的数据库
比如图片名是123.JPG 导出来后是123

谢谢，但是要求是要用VB做个有图形界面的程序

我用了Drive1 Dir1 File1 Command1这几个控件，想把file1中读到的文件名导出
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
下面该怎么写啊，求高人帮写完~~

Answer 1

Private Sub Command1_Click()
Dim txtSTR As String
Dim i As Integer
For i = 0 To File1.ListCount
txtSTR = txtSTR & File1.List(i) & vbCrLf
Next i
txtSTR = Replace(UCase(txtSTR), ".JPG", "", , , vbTextCompare)
Text5 = "共有JPG文件: " & File1.ListCount & vbCrLf & txtSTR
End Sub

Answer 2

不用vb，用dos命令就可以了
c:\>dir e:\123\456\*.jpg /b > f:\789.txt
就是把e盘123文件夹中的456文件夹里面的所有图片名称写到F盘789.txt文本文件里面。

然后用记事本打开789.txt，用空字符替换掉所有的.jpg就是了。

Answer 3

用文件系统对象来做
Dim fso As New FileSystemObject
Dim fName As String
fName = fso.GetBaseName(App.Path & "\aa.jpg")
这样就可以得到你要的文件名称

Answer 4

打开我的电脑 点工具然后在点文件夹选项然后点查看把隐藏已知文件类型的扩展名的勾去掉就能了

Answer 5

说明白点。什么JPG 什么DBF 举个例子。