以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何扁历指定文件夹----已解决  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103757)
--  作者：2900819580
--  发布时间：2017/7/16 13:49:00
--  [求助]如何扁历指定文件夹----已解决

如何扁历指定文件夹，并将指定后缀的文件名

 

1、如何将上面指定后缀的文件名，以Lable方法在窗体中加载，

 

[此贴子已经被作者于2017/7/16 14:05:21编辑过]
--  作者：2900819580
--  发布时间：2017/7/16 14:05:00
--  
Dim i As Integer = 1
For Each file As String In FileSys.GetFiles(path)
    If file.EndsWith("htm") Then
   Dim Va() As String = file.Split("\\")
          Forms("窗口1").Controls("TextBox1").Text &= vbcrlf & file & vbcrlf
If va(va.Length -1) <> "index.htm" Then
        Dim lbl As WinForm.Label
        lbl = e.Form.CreateControl("lable" & i, ControlTypeEnum.Label)
        lbl.Text = va(va.Length -1)
        lbl.Left = 30
        lbl.Top = 20 * I
        e.Form.AddControl(lbl)
        i += 1
    End If
End If
Next