Question

一个VB问题

如果 text1="D:\\" ，那么list1显示所有D盘下的mp3音乐名称

怎么做到

Answer 1

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
If Right(Dir1.Path, 1) <> "\" Then
Text1.Text = Dir1.Path & "\" & File1.FileName
Else
Text1.Text = Dir1.Path & File1.FileName
End If
End Sub

Private Sub Form_Load()
File1.Pattern = "*.mp3"
End Sub

Answer 2

'用API搜索所有文件的，

Private StopFlag As Boolean

Public Sub FileSearch(ByVal sPath As String, ByVal Filter As String)

Static lngFiles As Long

Dim sDir As String

Dim sSubDirs() As String

Dim lngIndex As Long

Dim lngTemp&

DoEvents

If StopFlag = True Then Exit Sub

Label1.Caption = "当前路径" & sPath

If Right(sPath, 1) <> "\\" Then sPath = sPath & "\\"

sDir = Dir(sPath & Filter)

Do While Len(sDir)

lngFiles = lngFiles + 1

List1.AddItem sPath & sDir

sDir = Dir

Loop

lngIndex = 0

sDir = Dir(sPath & "*.*", vbDirectory)

Do While Len(sDir)

If Left(sDir, 1) <> "." And Left(sDir, 1) <> ".." Then

If GetAttr(sPath & sDir) And vbDirectory Then

lngIndex = lngIndex + 1

ReDim Preserve sSubDirs(1 To lngIndex)

sSubDirs(lngIndex) = sPath & sDir & "\\"

End If

End If

sDir = Dir

Loop

For lngTemp = 1 To lngIndex

Call FileSearch(sSubDirs(lngTemp), Filter)

Next lngTemp
End Sub

Private Sub Command1_Click()
'测试

FileSearch Text1.Text, "*.mp3"
End Sub

Private Sub Form_Unload(Cancel As Integer)

StopFlag = True
End Sub

'添加一个按钮，一个文本框，一个列表框，和一个标签，效果很好的，不明白的加我百度HI

Answer 3

DimiAsInteger
DimSAsLong
DimnAsInteger
n=text1.text
S=0
fori=1Ton
S=S+i
Nexti
MsgBoxS

Answer 4

很简单的函数就可以解决