MyPath = "c:\" ' 指定路徑。 MyName = Dir(MyPath, vbDirectory) ' 找尋第一個子目錄。 Do While MyName <> "" ' 執行迴圈。
確定! 回上一頁