VBSで便利なプログラムを作れスレ

■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん
垢版 |
2007/02/03(土) 17:49:47
素人丸出しお粗末で遅くてもいいので
いますぐ使えるちょっぴり便利プログラムを作れ

（例○○を自動処理してくれるプログラム）
305デフォルトの名無しさん
垢版 |
2010/10/26(火) 01:31:14
shine.unko
こんな感じですか？わかりません。
2010/10/26(火) 18:43:40
>>305
unknownだっつってんだろダラズ
2010/10/26(火) 21:42:34
うんこなうんか
2010/10/29(金) 23:53:34
>>304
Lotus Notesなんかも添付ファイルが理解できない時に吐くみたいだね＞unk
個人的には3文字中「un」で2文字使うのはどうかと思うので
「UKN」の方が好きだけど(天気図等で使うが少数派…)

いっそのこと3文字にこだわらずに拡張子を「.unknown」にしちゃえば？
(dir /xなど)8.3文字表示で見ると、ちゃんと「.unk」になるし
2010/10/30(土) 03:10:54
>>308
なるほど、 .ukn　か。

.unknownでもまぁ問題は無い気がするが
.unk でも十分伝わると思うんだ。
うんこって読む奴がうんこ。
2010/10/30(土) 09:52:51
むしろunkでうんこって読める先輩って
kwsk、ktkr、wktk、ksk、gkbrみたいなアブジャド系表記に慣れてる2chねらなんじゃないのかw
311デフォルトの名無しさん
垢版 |
2010/10/31(日) 22:53:19
他コンピューターのパスを返す時に、ネットワークドライブ（\A～Z）ではなく、
\\サーバー名\フォルダ～というようにする方法はありますか？
2010/11/01(月) 00:28:50
あります
2010/11/06(土) 00:05:55
おまえ、わざと意地悪してるだろ
同僚や部下から嫌われるタイプだな
2010/11/06(土) 00:06:48
死ねよ
2010/12/25(土) 06:45:27
久しぶりになにかをVBSで書きたい。
2010/12/26(日) 21:35:06
じゃあ「何か」を書いてみればいい。
317デフォルトの名無しさん
垢版 |
2011/01/02(日) 00:13:10
MsgBox "Hello World!!"
2011/01/02(日) 00:18:17
MsgBox "Happy New Year !"
319デフォルトの名無しさん
垢版 |
2011/01/02(日) 00:23:59
ゴサっ

--------------------
dim i
dim j

for i=1 to 1000

j=j+0.1

next

MsgBox j
2011/01/04(火) 13:34:29
ＴＥＸＴファイルから
特定の文字や特定の行を抜き出す
スクリプトってない？
三次元測定機からＣＡＤに
ＸＹＺ手動で打ち込むのもういやになった。
2011/01/04(火) 15:12:23
>>320
ある。というか簡単だよ
テキストファイルを開いて1行ずつ読みながら正規表現等でチェックしていくだけ
2行以上に渡るデータだと少し面倒だけど大した手間ではない

でも仕様によってはわざわざ作らずに
SakuraエディタなどのテキストエディタのGrep機能で充分だったりするけど
2011/01/04(火) 17:00:53
textファイルをドラッグアンドドロップで

DIM LOC1= LOCATION OF CIRCLE CIR1 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
X 469.343 0.050 -0.050 469.343 0.000 0.000 ---#----
Y 2.106 0.050 -0.050 2.106 0.000 0.000 ---#----
Z 412.000 0.050 -0.050 412.000 0.000 0.000 ---#----
D 53.996 0.050 -0.050 53.996 0.000 0.000 ---#----
DIM LOC4= LOCATION OF CIRCLE CIR4 UNITS=MM ,$
GRAPH=OFF TEXT=OFF MULT=10.00 OUTPUT=BOTH HALF ANGLE=NO
AX NOMINAL +TOL -TOL MEAS DEV OUTTOL
X 386.074 0.050 -0.050 386.074 0.000 0.000 ---#----
Y 2.461 0.050 -0.050 2.461 0.000 0.000 ---#----
Z 577.913 0.050 -0.050 577.913 0.000 0.000 ---#----
D 44.971 0.050 -0.050 44.971 0.000 0.000 ---#----
　　　　　↑こんな感じの中身を
　　　　　こんな風に↓
/469.343/2.106/412.000
/386.074/2.461/577.913

ＸＹＺを/に置き換えて
さらにＸＹＺのＮＯＭＩＮＡＬの数字だけを残して
さらにデスクトップにtextで保存されるようなやつです
難しいですね、すいません
323その１
垢版 |
2011/01/04(火) 22:51:41
>>322
とりあえず作ってみた

' [仕様]
' NOMINALの位置は固定(XYZの直後）
' X,Y,Zはこの順番で必ず出現
' 数値間はスペース区切り
' 出力ファイルはデスクトップに元ファイル名(拡張しなし)_XYZ.txtというファイル名で出力
Dim fso,wshShell,regXYZ
Dim inFilePath,outFilePath,inFile,outFile,sDeskTopPath,sLine,retMatches
Dim X,Y,Z,isOutput
Const REG_XYZ_NOMINAL = "^([XYZ]) +([^ ]+) " ' 先頭XYZ の後空白があり次に空白が来るまでの値
Const OUT_FILE_TAIL = "_XYZ.txt" ' 出力ファイル末尾
Set wshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set regXYZ = New RegExp
With regXYZ
.IgnoreCase = False ' 大文字小文字区別する
.Global = False ' 先頭の一致のみ
.Pattern = REG_XYZ_NOMINAL
End With
sDesktopPath = wshShell.SpecialFolders("Desktop") ' デスクトップの取得
inFilePath = WScript.Arguments(0) ' 入力ファイル
If Not fso.FileExists(inFilePath) Then MsgBox(inFilePath & "が存在しません"):WScript.Quit
outFilePath = fso.BuildPath(sDesktopPath, fso.GetBaseName(inFilePath) & OUT_FILE_TAIL)

If fso.FileExists(outFilePath) Then
If MsgBox(outFilePath & "ファイルが存在します。上書きしますか？", vbYesNo ) = vbNo Then Msgbox "処理を中止しました":WScript.Quit
End If
324その２
垢版 |
2011/01/04(火) 22:52:49
Set outFile = fso.CreateTextFile(outFilePath, True)
Set inFile = fso.OpenTextFile(inFilePath, 1, False)
X="":Y="":Z="":isOutput = True
Do While ( Not inFile.AtEndOfStream )
sLine = inFile.ReadLine
Set retMatches = regXYZ.Execute(sLine)
If ( retMatches.Count > 0 ) Then
Select Case retMatches(0).Submatches(0)
Case "X"
X = retMatches(0).SubMatches(1):isOutput = False
Case "Y"
Y = retMatches(0).SubMatches(1):isOutput = False
Case "Z"
Z = retMatches(0).SubMatches(1)
outFile.WriteLine("/" & X & "/" & Y & "/" & Z)
X = "":Y="":Z="":isOutput = True
Case Else
End Select
End If
Loop
if ( Not isOutput ) Then outFile.WriteLine("/" & X & "/" & Y & "/" & Z)
inFile.Close:outFile.Close
set inFile = Nothing:set outFile = Nothing:set WshShell = Nothing
set fso = Nothing:set regXYZ = nothing
MsgBox "完了"
' その1とその2の内容を一つのテキストファイルに貼り付け XYZ.vbs 等のファイル名で保存してください
325323
垢版 |
2011/01/04(火) 23:46:30
追記
ソースを短くするために複数ファイルのドラッグ＆ドロップには対応していません
# 複数の関数に分かれていたのを1つにまとめたりしたので

↓辺りを参考にすれば変更は容易です
ttp://msdn.microsoft.com/ja-jp/library/cc364473.aspx
2011/01/05(水) 10:04:58
プログラム板凄すぎワロタｗ
ありがとうございます！
327デフォルトの名無しさん
垢版 |
2011/01/07(金) 15:49:03
どなたかリムーバブルメディアを取り出すvbs作ってください
お願いします
ジャンクのスロットローディング式のドライブ買ったらボタンがありませんでした
328デフォルトの名無しさん
垢版 |
2011/01/07(金) 16:53:37
011100111111011111
011110000111101111
001111100011110110
111010101101011101
100011101010101010
2011/01/08(土) 08:04:12
>>327
ちょっと検索すれば出てくる。少しは自力で探そう

VBSにこだわらないのなら
Vectorで「トレイ 開閉」とかで検索すればフリーソフトがいくらでもあるし

と言ってるうちに見つけた。1行で書けるのが面白かったので個人的にメモ

' 光学ドライブが1台の場合
CreateObject("WMPlayer.OCX").cdromcollection.item(0).eject()

' 光学ドライブが複数ある場合などドライブ指定が必要な時(例は Q: ドライブ)
CreateObject("WMPlayer.OCX").cdromcollection.getByDriveSpecifier("Q:").eject()
2011/01/08(土) 12:38:00
>>329
APIしか思い浮かばなかった俺には目から鱗だわ＜WMPlayer
331デフォルトの名無しさん
垢版 |
2011/01/08(土) 21:00:10
>>329
もうCで作っちゃったけど
1行で済むんですね
ありがとうございました！
332こいぴ
垢版 |
2011/01/09(日) 21:54:03
業務で、ＶＢＳにデジタル署名をする必要が出ました。
各種調査しましたが、どうしても方法が解りません。
どのたか、ご教示願います。
2011/01/09(日) 23:18:39
>>332
ここが色々手順を説明しているので分かりやすいと思う
ttp://msdn.microsoft.com/ja-jp/library/ms974604.aspx
2011/01/10(月) 21:05:09
無料RPG製作ツール「ロープレジェネレーター」

　直感的操作で簡単なゲームが作れます。 簡単に配布可能な状態に出力することができます。
(HSP製のソースコード付きで、スクリプトの知識があれば自由度の非常に高いカスタマイズ
ができます）
他にも仲間預かり機能（100人も）や、仲間の状態/状態異常を細かく設定できたり、
乗り物が作れたりゲーム中に画像を差し込んだり、回転やフラッシュなどのエフェクト
なんかも簡単に作れる様です。戦闘はデフォだとドラクエ系。
移動は矢印キーの他に、キャラがマウスを追っかけたりするとのこと。
　他にはオートアクションというのがあってオリジナルシステムの製作に役に立つかも
しれない機能です。これは、マップエディタで設定することで、「マップに入った時・
出た時・一歩歩いた時・戦闘開始前」に自動的に実行されるアクションを設定できる
機能です。
■分からないことや要望は掲示板へどうぞ。他にもいろいろ進化中みたい。
335デフォルトの名無しさん
垢版 |
2011/01/28(金) 13:34:09
デスクトップ上に任意の文字だけを表示するVBSを作るのはむずかしいでしょうか？
336デフォルトの名無しさん
垢版 |
2011/01/28(金) 14:47:38
>>335
目的がよくわからないけど
スクリーンセーバーでテキスを表示しておけばいいんじゃない？
2011/01/28(金) 14:52:47
>>336
目的はホットキーに埋め込まれたマクロの実行をする際に

その実行するモードがいま何になっているかをキーを押した時に数秒デスクトップ上に表示させるためです。

2011/01/28(金) 20:13:40
>>335だけ見ると、そんなの簡単じゃんって思うが。>>337は意味わからんわ。
2011/01/29(土) 01:00:36
何か文字列を数秒間デスクトップ上に表示させるってだけなら、
もし俺ならVBSではなく以下のバッチファイルで手っ取り早く済ませるんだが…

@ECHO OFF
ECHO 表示したい文字列
PING 0 > NUL
PING 0 > NUL
EXIT
2011/01/29(土) 07:18:06
それ､"デスクトップ上に"ではなく"ウィンドウ内に"だろ

それで良いならわざわざバッチファイル使わずWScript.ShellのPopupで良いはず
2011/01/29(土) 08:29:29
>>338-340
具体的なイメージで言うと
透明ウィンドウにテキストのみ表示するかバルーンメッセージ的なものを考えていたのですが
ＶＢＳで透明ウィンドウはできないっぽいのであきらめようと思います
2011/01/29(土) 09:14:11
まあ外部COM使えばどうにでもなる話ではあるが､
それ言うと他も全て「COM使え」で終わってしまう｡
343デフォルトの名無しさん
垢版 |
2011/01/30(日) 22:09:09
しまうね
2011/02/01(火) 21:14:34

　　　　　　　＋　　　　　　　 　　　＋
　　　　　　　　　＋　　　 　　+
　　　　＋　　　　　ｼﾏｳﾈ━━━━━━━!!!!　　＋
　　　　　　　　　　/･/＼＿＿　　　　　　　＋
　 　　　＋　　　　丶'＼||||||||||）～ 　＋
　　　　　　　　　　　　 <＜￣>/　　　　
　　　　　　＿|＼∧∧∧ＭＭＭＭ∧∧∧／|＿
　　　　　＞　　　　　　　　　　　　　　　　　　＜
　　─　/　──┐　　/＿　　　/＿ヽ|　 |ヽ　 ム ヒ　|　|
　─　/　　　　／　/￣　/　　￣／　　|￣|￣　月 ヒ　|　|
　＿_ノ　　　＼　　　　_ノ 　　／/＼ / | ノ ＼ ﾉ Ｌ_い o o
2011/02/01(火) 23:48:04
よろしくお願いしまう
346デフォルトの名無しさん
垢版 |
2011/02/08(火) 22:16:59
VBスクリプトで起動時にリモートデスクトップをマルチセッションで同時起動するスクリプトを書きましたよ

ttp://xbmc.inpane.com/main/omake/windows.php#rdp
347デフォルトの名無しさん
垢版 |
2011/02/09(水) 18:09:40
質問です。

フルパスファイル名が書かれているテキストファイルを参照し、ファイル有無をチェックするやり方を教えてください。また、テキストファイルに記述されていないファイルが存在する場合もNGとしたいです。
2011/02/09(水) 19:43:41
>>347
詰まる部分があるとは思えない初歩的なプログラムな気がするんだが。
とりあえず書いた所までどこかにアップしてみてよ。
2011/02/09(水) 20:24:29
どこかにアップっていうか､ここに貼ればいいんじゃね？
そんな長いコードにはならんだろ
2011/02/09(水) 21:15:33
いや、かなり長いコードになるかもよ。
前半の
＞フルパスファイル名が書かれているテキストファイルを参照し、ファイル有無をチェックする
コレは簡単だよな。悩むこたぁない。

問題は後半のコレ
＞テキストファイルに記述されていないファイルが存在する場合もNG
やっかいだぜ？

考え方としては、前半の処理と、後半の処理は完全に分けて
２本の別のプログラムを書くような気持ちでコーディングすればいいんじゃないかな。
2011/02/09(水) 21:36:33
何処が厄介？

テキストに書かれたパスを連想配列に入れて
対象フォルダ内のファイルをループ回しながらExistsでチェックするだけだろ
2011/02/09(水) 21:59:35
ほらね。わかってない。
2011/02/10(木) 01:35:05
解ってないのは350｡恥ずかしい､､､
354347
垢版 |
2011/02/10(木) 08:01:03
皆さんありがとうございます。

前半部分は大体イメージをつかめているのですが、後半部分でつまってます…
2011/02/10(木) 08:06:41
とにかく自分で出来る部分まで書いて貼るなりどこかにアップするなりしろ

話はそれからだ
2011/02/10(木) 11:30:54
つまり全ドライブの全フォルダを検索しなきゃならんな
2011/02/10(木) 11:48:49
普通に考えれば､対象は一部(特定のフォルダ以下)だろ
2011/02/10(木) 13:09:11
>>357
どうしてそう言い切れる。
本人はフルパスファイル名、つまり絶対パスを指定しているんだぞ
特定フォルダでいいなら相対にするだろ常識的に考えて
2011/02/10(木) 13:17:09
昨今､相対パスが使われるのは相対パスでなければ困る場合のみで
どちらでも構わない場合は絶対パスを使うことの方が多い件について｡
2011/02/10(木) 15:02:25
>>347が情報小出しにするからイカンのだ
こういう質問者って大体足りてないよな色々と
2011/02/10(木) 20:22:36
>>359
zipとかの書庫ファイルはなんで相対パスで格納してるか理解できる？
何のためにカレントディレクトリって概念があると思う？
何でわざわざ%SystemRoot%とか環境変数を定義してるのか疑問に思わない？
2011/02/10(木) 20:26:38
相対パスが絶対的に必要ではない場合はって話をしてるのに
全く的はずれな例を持ってきたな

そういうことは相対パスそのものが無意味とか宣ってる奴に言ってやれ
2011/02/10(木) 21:27:12
どちらでも構わない場合、ってどういう場合だよ
レスにアンカー付けるときにわざわざ
http://hibari.2ch.net/test/read.cgi/tech/1170492587/362
なんてする奴はいないだろ
逆に「絶対パスが使われるのは絶対パスでなければ困る」時でしかないだろ
2011/02/10(木) 21:49:46
狭量なやつw
2011/02/10(木) 22:58:35
>>361
質問者はzipファイルの中身まで調べるなんて設問はして無いだろ。
なんでオマエは論点をずらそうと必死なんだ？
366デフォルトの名無しさん
垢版 |
2011/02/12(土) 11:50:55
vbscriptでmicrosoft bluetooth stackの接続情報を得ることはできませんか？
2011/02/13(日) 08:23:52
"E:\hogehoge\hoge"
というフォルダが存在した場合、そのフォルダを削除。
存在しなければそのまま終了。

という簡単なスクリプトを教えていただけませんでしょうか？
2011/02/13(日) 08:51:10
いいよ｡

で､どこを教えて欲しいの？
まさか1から10まで丸投げで全部書いてとは言わないよね？
しかも質問スレではなく､自分の書いたものを晒すスレで｡
2011/02/13(日) 14:02:19
いや○投げスレじゃね？ここ。
2011/02/13(日) 14:18:16
>367
VBSじゃないが、これで事足りないか？
if　exist　"E:\hogehoge\hoge\."　rd/s/q　"E:\hogehoge\hoge"
371367
垢版 |
2011/02/13(日) 14:31:51
なんだか趣旨がよくわからないスレでしたが、どこへ質問すれば良いのかわからず、とりあえず書き込んでしまいました。
申し訳ありません。

>>370 さんのバッチファイルで満足な結果が得られました。
まさか1行で済むとは思いもしませんでした。

ありがとうございました。
2011/02/13(日) 14:32:35
hoge\. だとhogeってファイルがあった時も反応するんだよな。
hoge\nul だとディレクトリしか反応しない。
373デフォルトの名無しさん
垢版 |
2011/02/14(月) 23:17:24
質問スレがみつからなかったので、こちらで質問させて頂きます。
Set objShell = WScript.CreateObject("WScript.Shell")
Set objExec = objShell.Exec("ipconfig.exe")
って実行した時に、標準出力に結果を出さないようにする方法ってありますか？
ipconfig 1 > nul
みたいな感じで、エラー発生時以外はすべて返ってくる結果を捨てたいのです。
そのまま書いてもうまく動かないです。
2011/02/15(火) 00:05:35
つgoogle [wscript Exec 標準出力]
375デフォルトの名無しさん
垢版 |
2011/02/15(火) 00:17:00
>374
トラップされるって事は、読み出さない限り無視されるって事ですか？
2011/02/15(火) 00:19:20
> 標準出力に結果を出さない
はipconfig.exeが対応してなきゃ出来ないよ

WSH(EXEC)が受け取った標準出力を
「コンソールウィンドウに表示しない」
ならどうにでもなるけど
377デフォルトの名無しさん
垢版 |
2011/02/15(火) 00:36:44
>376
コンソールウィンドウに表示しないと、1 > nul って同じ扱いですか？
質問ばかりで申し訳ない。
2011/02/16(水) 00:51:30
ipconfigはネットワーク設定を確認する為のプログラムなんだから
エラーになるのはexeが見つからない時ぐらいじゃねーの。
ネットワーク設定されて無い時は"設定無し"って正常終了するんだし
2011/02/16(水) 02:01:02
>>373
ttp://www.atmarkit.co.jp/fwin2k/operation/wsh05/wsh05_03.html
2011/02/16(水) 09:26:36
pingで表示したくなくて、WMI使ったな

こんな感じだったと思う。
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set colItems = objWMIService.ExecQuery _
("Select * from Win32_PingStatus " & _
"Where Address = '" & hoge & "'")
2011/02/16(水) 13:03:00
何かすげぇな…

CreateObject("SAPI.SpVoice").Speak"Wellcom to VBScript."
2011/02/17(木) 05:50:16
CreateObject("SAPI.SpVoice").Speak"KoNoHaYaSaNaRa. Ieru. Null Po."
2011/02/17(木) 12:24:42
CreateObject("SAPI.SpVoice").Speak"Gutt."
2011/02/17(木) 22:51:24
"null poor" "gad"にしたらそれっぽく聞こえるようになった
2011/02/17(木) 23:00:22
こんな化石ネタに乗ってくる奴が居るとは､､､
2011/02/20(日) 20:13:23.14
ほるだー内にあるoutlook6のメッセージファイル.emlを検索して、エクスプローラにリンク表示するプログラムを作ってます
が、.emlが開けない
アウトルックを軌道してクリックしたメッセージを表示したいのですが、どう書けばいいのでしょう。
wshshell.runでは出来ませんでした……
2011/02/21(月) 01:17:30.92
ISPの切断＞接続をしてくれるPGをどなたかキボン！
telnetでルータ（Aterm）に入って、PPPoEを再接続してくれる物です。
2011/02/21(月) 07:28:22.68
だからここは自分で作って晒すスレで
質問スレや制作依頼所じゃないと何度言えば…
2011/02/21(月) 09:56:31.24
ほかにいくか……VBSじゃなくてIEの問題な気がしてきた
2011/02/21(月) 21:02:49.69
丸投げされるのはムカつくけど多少の質問ならいいんじゃね？

>>387
telnetで入れるならTeraTerm等でマクロ作ったほうが簡単。
もっとも擬似GUIだとお手上げだが。
2011/02/26(土) 01:19:27.04
昔、telnetをラップするvbs作ったことあったな…
392デフォルトの名無しさん
垢版 |
2011/04/09(土) 21:38:36.77
こんな感じでマイドキュメントをコピーしてバックアップを
取ろうとしてるんですが、Windows 7だとエラーが返ってきて、
コピーできません。
Set objFS = CreateObject("Scripting.FileSystemObject")
objFS.CopyFolder "C:\Users\Admin","C:\test"
AdministratorでもコピーできないのってUACの仕様ですか？
2011/04/09(土) 21:50:40.23
>>392
　>>388
2011/04/10(日) 00:04:08.05
>>393
　>>390
2011/04/10(日) 00:16:29.59
>>390を引き合いに出すなら､それを引き合いに出した>>394自身が答えてやらないとなw
2011/04/10(日) 06:02:52.24
>>392
UACというかVistaからの仕様です
例え管理者といえど他人の敷地には許可無く進入は出来ません。
今までのウィルスならこれで全て無力化される、そんぐらい厳しい仕様。
因みにAdminとAdministratorは別物だよ。
XPまでのユーザー管理とは似た非なるものと認識しておこう。
ポリシーいじれば同じ感じに出来るけどめんどい。
397392
垢版 |
2011/04/10(日) 19:18:31.68
>>393
>>394
質問スレじゃないの理解してませんでした。申し訳ない。

>>395
フォローありがとうございます。

>>396
かなりめんどくさそうですね。手作業でやった方が速いのかも…
アクセスフォルダに所有権とかつけてみて、もうちょっとやってみます。
ありがとうございます。
398デフォルトの名無しさん
垢版 |
2011/04/23(土) 17:43:43.24
唐突ですがウサギ型ロボットをR2D2にするためのVBSを公開しましたよ
ttp://xbmc.inpane.com/sub/nabaztag/
2011/04/23(土) 23:30:59.78
会社の共有PCの管理のため、Windowsのログオンスクリプトにかまして、
とあるプロセスを監視しています。
なので基本的にユーザーがログイン中は常にWscript.exeが動いているのですが、
↓のような無限ループでもいいんですかね？
なんとなく無理やりな感じがして、もっとスマートなやり方があるでしょうか？



Call プロセス監視処理

①
Sub プロセス監視処理
Do
'WMIからプロセス取得して、目標のプロセスがでたらループ抜け
Wscript.Sleep 1000
Until
Call やりたい処理
End Sub

②
SUb やりたい処理
'やりたい処理がおわったらまた、プロセス監視処理をCall
End Sub
400デフォルトの名無しさん
垢版 |
2011/04/27(水) 22:03:44.07
おまえら>>399これくらいも答えられないのかよ
死ねっ！能無しども
会社でもろくな仕事してないんだろうなぁ・・
2011/04/27(水) 22:11:12.36
>>400
あんまし読んでないしてきとーだけど再帰処理っぽいなと思った。
見つかるまで自分自身を呼び続けたらいいべさ
2011/04/27(水) 22:38:33.12
>>825
http://mackerel.axfc.net/uploader/Img/l/7923901924/v/Img_114179.jpg
2011/05/20(金) 13:19:16.79
ここで聞いていいのか分かりませんが、分かる方いたら教えてください。
コマンドラインでフォルダを圧縮するためにZIP.VBSというのを使っているのですが、
MakeZIP.VBSでフォルダを圧縮する際、zipファイルにフォルダ名が格納されてしまいます。

photo
　├aa.jpg
　└bb.jpg

上記のような場合に、zipファイルにphotoフォルダも格納されます。
これをphotoフォルダを格納せず、ファイルのみ格納するにはどこを修正すればよいのでしょうか。
よろしくお願いします。
2011/05/20(金) 14:38:03.93
そもそもスレ違いだが､それ解らないレベルならZIP.VBSなんか使わずに
コマンドライン型のアーカイバツール使えよ｡
GUIで予め設定しておけば渡したフォルダの中身だけ圧縮してくれるものなんて
いくらでもあるから｡
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況