[求助]如何扁历指定文件夹----已解决 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何扁历指定文件夹----已解决

共有1556人关注过本帖树形打印复制链接主题：[求助]如何扁历指定文件夹----已解决

2900819580

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1347 积分：9817 威望：0 精华：0 注册：2015/6/30 8:46:00

[求助]如何扁历指定文件夹----已解决 发帖心情

Post By：2017/7/16 13:49:00 [只看该作者]

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

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

[此贴子已经被作者于2017/7/16 14:05:21编辑过]

2900819580

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1347 积分：9817 威望：0 精华：0 注册：2015/6/30 8:46:00

Post By：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

下一主题 >> << 上一主题

主题：[求助]如何扁历指定文件夹----已解决