首頁>Club>

vb獲得一個資料夾下所有子資料夾名，並全部新增到列表框中？

11
回覆列表
  • 1 # 你永遠追不上的巨人

    點選單工程--引用選擇MicrosoftScriptingRuntime,確定.程式碼:OptionExplicitPrivateSubForm_Load()DimfsoAsNewFileSystemObjectDimf1AsFolderDimf2AsFolderSetf2=fso.GetFolder("C:\windows")ForEachf1Inf2.SubFoldersList1.AddItemf1NextEndSubOK

  • 2 # 使用者5443769950533

    //這個程式實現的是選中的資料夾的名字在文字框中顯示出來

    //顯示資料夾，Dir1是檔案路徑控制元件的名字，Text1是文字框名字

    Private Sub Dir1_Change()

    Text1.Text = Dir(Dir1.Path, vbDirectory)

    End Sub

    //切換碟符,Drive1是切換碟符的控制元件名字

    Private Sub Drive1_Change()

    Dir1.Path = Drive1.Drive

    End Sub

相關內容

  • ∧ 中秋節和大豐收的關聯？
  • ∨ 阿爾山晚上的星星好看嗎？哪裡最適合看星星？