◆こんなソフトウェアつくってください!〜Part5〜◆

544 名前：名無しさん＠お腹いっぱい。 ：2005/05/10(火) 10:02:39 ID:ohrfmGeD

壁紙チェンジャーとかにある起動するごとにファイルの画像をかえてくれるソフト希望です
例えばソフトを起動ごとに指定したフォルダからランダムに選んでpic.bmpみたいなファイルの絵を変えてくれる感じのソフト
壁紙チェンジャーだと壁紙をしていするとかいろいろあるけど
その部分はなくしてただ指定のフォルダからランダムに画像を選んで指定の画像ファイルの内容を書き換えるソフト

546 名前：名無しさん＠お腹いっぱい。 ：2005/05/10(火) 19:31:36 ID:Lxmj7WBN

>>544
要するに起動する度指定フォルダの中の画像をランダムに
指定したパスに上書きコピーでFA？

547 名前：544 ：2005/05/12(木) 10:20:38 ID:ZdGoXR7W

>>546
そんな感じでOKです

548 名前：名無しさん＠お腹いっぱい。 ：2005/05/12(木) 13:19:57 ID:YxQ/v61u

>>547
Dim FSO, myFolder, myFile, myFolderPath, myFilePath, i, j
'============================================================
'画像フォルダのパス
myFolderPath = "C:\Documents and Settings\hoge\My Documents\My Pictures"
'コピー先パス
myFilePath = "C:\Temp\hoge.bmp"
'============================================================
Set FSO = CreateObject("Scripting.FileSystemObject")
Set myFolder = FSO.GetFolder(myFolderPath)
Randomize: i = Int(myFolder.Files.Count * Rnd)
For Each myFile In myFolder.Files
  if i = j Then myFile.Copy myFilePath: WScript.Quit
  j = j + 1
Next
Set FSO = Nothing: Set myFolder = Nothing

==========で囲った部分を書き換えて、適当な名前と.vbsの拡張子で保存
実行するたびに指定したフォルダの中からランダムでファイルを選んで指定したパスに上書き
画像も糞も関係なくランダムで選ぶから、指定したフォルダには同じ拡張子の画像だけにしておいてね
待ってればまともなもの作ってくれる人が出てくるだろうけど、とりあえず動作は問題ないと思う

549 名前：名無しさん＠お腹いっぱい。 ：2005/05/12(木) 13:54:10 ID:vWCG5Lwg

>>548
　　　　_、_ 　ｸﾞｯｼﾞｮﾌﾞ!!
　 　(*´Д`*)'`ｧ'`ｧ　_n
　￣　　 　 ＼　 　 （ E）
　ﾌ 　　　 /ヽ ヽ_／／
　
　　_n
　（　l　　　　_、_
　 ＼ ＼　(*´Д`*)'`ｧ'`ｧ
　　　ヽ___￣￣　 ） 　　ｻﾝｸｽ!!　
　　　　　/ 　 　/

550 名前：548 ：2005/05/12(木) 14:16:02 ID:YxQ/v61u

ダメじゃん俺･･･＿|￣|○
悪いけど二つ目の==========の下から書き換えて。


Set FSO = CreateObject("Scripting.FileSystemObject")
Set myFolder = FSO.GetFolder(myFolderPath)
Randomize: i = Int(myFolder.Files.Count * Rnd)
For Each myFile In myFolder.Files
  If i = j Then
    myFile.Copy myFilePath
    Set FSO = Nothing: Set myFolder = Nothing
    WScript.Quit
  End If
  j = j + 1
Next

551 名前：544 ：2005/05/12(木) 16:12:27 ID:ZdGoXR7W

>>545
おーこれでぜんぜん十分です！サンクス！！