none
win form vb.net urgent~~ 如何获取 目录下的 .mdb 的file name? RRS feed

答案

  •  Dim mdbs As String() = Directory.GetFiles("c:\", "*.mdb")

    http://feiyun0112.cnblogs.com/
    • 已标记为答案 xeraee 2009年3月26日 8:58
    2009年3月26日 7:47
    版主
  •  mdbs.length就是files count
    File.Copy(txtrestorepath.Text, Application.StartupPath + "\try1.mdb",true)

    http://feiyun0112.cnblogs.com/
    • 已标记为答案 xeraee 2009年3月26日 8:58
    2009年3月26日 8:02
    版主
  • 明白了

    原来 mdbs(0)


    mdbs 是 array 对吧= = 知道怎样解答了嘿~

        Private Sub recoveryDatabase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            Dim mdbs As String() = Directory.GetFiles(Application.StartupPath + "\backup database\", "*.mdb")

            Dim i As Integer = 0




            Do
                ListBox1.Items.Add(mdbs(i))
                i += 1


            Loop Until i = mdbs.Length




        End Sub

    谢谢feiyun赐教^^

    • 已标记为答案 xeraee 2009年3月26日 8:58
    2009年3月26日 8:14
  • "C:/abcde/abcde/xxx.mdb".Split("/")
    http://feiyun0112.cnblogs.com/
    • 已标记为答案 xeraee 2009年3月26日 8:58
    2009年3月26日 8:25
    版主
  • 我找到答案了

    答案揭晓~~~


        Private Sub recoveryDatabase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            Dim mdbs As String() = Directory.GetFiles(Application.StartupPath + "\backup database\", "*.mdb")

            Dim i As Integer = 0

            Do

                ListBox1.Items.Add(mdbs(i).Split("\").Last)
                i += 1
            Loop Until i = mdbs.Length

        End Sub


    C:\Users\xeraee\Documents\Visual Studio 2008\Projects\SMRIT Project\SMRIT Project\bin\Debug\backup database\try - Copy (3).mdb

    变成
    try - Copy (3).mdb

    再次感谢feiyun赐教~^^

    • 已标记为答案 xeraee 2009年3月26日 8:58
    2009年3月26日 8:56

全部回复

  •  Dim mdbs As String() = Directory.GetFiles("c:\", "*.mdb")

    http://feiyun0112.cnblogs.com/
    • 已标记为答案 xeraee 2009年3月26日 8:58
    2009年3月26日 7:47
    版主
  • feiyun


    要怎样 得到 files count?

    我想做一个循环 把全部 .mdb 名放进listbox


    er..还有呢就是 要怎样copy 一个file 去另一个folder 而且我还要同时 更改file的名字


    我找到的copy file 的coding
        FileCopy(txtrestorepath.Text, Application.StartupPath + "\try.mdb")

    是这样  可是他只能覆盖我 的try.mdb

    该怎样达到 copy file 又把copy 到的file 更改1名字
    2009年3月26日 7:52
  •  mdbs.length就是files count
    File.Copy(txtrestorepath.Text, Application.StartupPath + "\try1.mdb",true)

    http://feiyun0112.cnblogs.com/
    • 已标记为答案 xeraee 2009年3月26日 8:58
    2009年3月26日 8:02
    版主
  •  Private Sub recoveryDatabase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            Dim mdbs As String() = Directory.GetFiles(Application.StartupPath + "\backup database\", "*.mdb")

            Dim i As Integer = 0




            Do
                ListBox1.Items.Add(mdbs)
                i += 1


            Loop Until i = mdbs.Length - 1




        End Sub



    aaa................ 我的 listbox 显示


    string[]array
    string[]array
    string[]array
    string[]array
    string[]array
    string[]array

    = =该如何改...


    2009年3月26日 8:10
  • 明白了

    原来 mdbs(0)


    mdbs 是 array 对吧= = 知道怎样解答了嘿~

        Private Sub recoveryDatabase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            Dim mdbs As String() = Directory.GetFiles(Application.StartupPath + "\backup database\", "*.mdb")

            Dim i As Integer = 0




            Do
                ListBox1.Items.Add(mdbs(i))
                i += 1


            Loop Until i = mdbs.Length




        End Sub

    谢谢feiyun赐教^^

    • 已标记为答案 xeraee 2009年3月26日 8:58
    2009年3月26日 8:14
  • feiyun想问下哦

    C:/abcde/abcde/xxx.mdb


    该怎样 切 出来 xxx.mdb 这个字眼




    2009年3月26日 8:20
  • "C:/abcde/abcde/xxx.mdb".Split("/")
    http://feiyun0112.cnblogs.com/
    • 已标记为答案 xeraee 2009年3月26日 8:58
    2009年3月26日 8:25
    版主
  •     Private Sub recoveryDatabase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            Dim mdbs As String() = Directory.GetFiles(Application.StartupPath + "\backup database\", "*.mdb")

            Dim i As Integer = 0

            Do
                mdbs(i).Split("\")


                ListBox1.Items.Add(mdbs(i))
                i += 1
            Loop Until i = mdbs.Length

        End Sub


    还是一样~~ 似乎没有split到@@”

    C:\Users\xeraee\Documents\Visual Studio 2008\Projects\SMRIT Project\SMRIT Project\bin\Debug\backup database\try - Copy (3).mdb


    2009年3月26日 8:32
  • 我的 filename 有空格会有影响的对吗@@?
    如果有空格的话该怎样split~.~?

    下列 是我的file 的path

    C:\Users\xeraee\Documents\Visual Studio 2008\Projects\SMRIT Project\SMRIT Project\bin\Debug\backup database\try - Copy (3).mdb
    2009年3月26日 8:44
  • 我找到答案了

    答案揭晓~~~


        Private Sub recoveryDatabase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            Dim mdbs As String() = Directory.GetFiles(Application.StartupPath + "\backup database\", "*.mdb")

            Dim i As Integer = 0

            Do

                ListBox1.Items.Add(mdbs(i).Split("\").Last)
                i += 1
            Loop Until i = mdbs.Length

        End Sub


    C:\Users\xeraee\Documents\Visual Studio 2008\Projects\SMRIT Project\SMRIT Project\bin\Debug\backup database\try - Copy (3).mdb

    变成
    try - Copy (3).mdb

    再次感谢feiyun赐教~^^

    • 已标记为答案 xeraee 2009年3月26日 8:58
    2009年3月26日 8:56