4个回答
2014-02-15
展开全部
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
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
2014-02-15
展开全部
'用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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2014-02-15
展开全部
DimiAsInteger
DimSAsLong
DimnAsInteger
n=text1.text
S=0
fori=1Ton
S=S+i
Nexti
MsgBoxS
DimSAsLong
DimnAsInteger
n=text1.text
S=0
fori=1Ton
S=S+i
Nexti
MsgBoxS
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2014-02-15
展开全部
很简单的函数就可以解决
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询