VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/06/25(Wed) 15:29 |
| 投稿者 | ： Ｈ．Ｋ |
| ＵＲＬ | ： |
| タイトル | ： Re^4: Ｗｅｂフォルダへコピーしたい |
英語のヘルプだとさっぱりでしたので、花ちゃんさんからのアドバイスを参考にやってみました。
Dim objShell as Shell32.Shell
Dim objFolder
Set objShell = New Shell32.Shell
Set objFolder = objShell.NameSpace("http://Srever/Folder")
objFolder.CopyHere "C:\Test.txt"
確かにコピーされました。しかし、コピー先がカレントディレクトリでした。
そこで、下記のことを確認すると・・・
Dim objFolderItem
Set objFolderItem = objFolder.Items
Debug.Print objFolderItem.Count
確かに「http://Server/Folder」にあるファイル数が表示されました。
Webフォルダを認識しているようですが、何か設定が違っているのでしょうか？
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）