自動でデータ移動するプログラム

質問

プログラムに強い方、教えてください。
Ａというフォルダー下にランダムな名称のフォルダーがあり、そのフォルダーにはそれぞれ写真データが入ってます。その写真データをひとつ上のフォルダ（Ａフォルダー）に移動させたいのです
しかも、ネットワーク先から不定期にランダムな名称のフォルダーが作成され、画像データが入ってくるので、定期的に画像の有無を監視して移動するプログラムが欲しいのです。
当方、プログラムに関して全くの無知ですので教えていただければ幸いです。

回答No.4

AKARI0418

ファイルシステムオブジェクトを使用すれば、可能ですよ。
とりあえずフォルダ名の取得方法です。
Sub ShowFolderList(Filename as string)
Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Filename)
Set sf = f.SubFolders
For Each f1 In sf
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub

回答No.3

imogasi

>プログラムに関して全くの無知ですので
丸投げして、コードを回答者に書かせるのは禁止です。
VBSの例題コードを実行したことありますか。
中身も相当難しい見込み。
AフォルダーXフォルダ
ーーーーーーYフォルダ（－－－は意味なし、桁あわせ）
ーーーーーーZフォルダ
のどれに写真が有るのか
または
AフォルダーXフォルダ
ーーーーーーYファイル
ーーーーーーZファイル
でXの中の特定のファイル（写アリ）、Yファイル（写あり）、Zファイル（写アリ）なのか。
手動で写真アリのファイルを１フォルダにまとめ、そのまとまったものをAの下のフォルダに刷るのはどうですか。
全てのプログラムーアクセサリーエクスプローラ
上でフォルダアイコンやファイルアイコンを目的フォルダに移動させる。
ーーー
または
それに相応しい、または機能が近いフリーなどのソフトを探したら。
「ファイル移動」でGoogle照会
中身見てないからあしからず。
http://gigazine.net/index.php?/news/comments/20080605_shock_bookmark/は目に付いただけだが。
http://phpspot.org/blog/archives/2007/07/ospe.html
「ファイル移動　VBA」でGoogle照会
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_100.html
ーー
MOVEコマンド
http://www5f.biglobe.ne.jp/~ayum/command/015.html

回答No.2

hige_082

＞専用ツールがなくても編集できるVBSがいいと聞きました
と、言うことは、何も出来ていないということ？
＞プログラムが欲しいのです
ここは、依頼や丸投げ禁止されていますよ
例えここで教えてもらっても、自分のスキルが無ければまともに動くものは出来ないよ

補足

と、言うことは、何も出来ていないということ？
→当方無知です。と最初に申し出てます。

作り方、やり方を教えていただける方で結構です。

回答No.1

n-jun

プログラムって、どの言語のことかを提示された方が回答もつきやすいかも。

補足

専用ツールがなくても編集できるVBSがいいと聞きました。
お願いします。