ファイル・フォルダの作成について

解決


岩男  2007-12-26 12:01:56  No: 138482

こんばんは〜

ファイル・フォルダ作成の作り方をWebで調べて作ってみたのですが、「はい」「いいえ」みたいに選択する方法(いいえを選んだ場合、処理が終了する)が不明でした。VBをやり始めたばかりの初心者なので、ご教授おねがいします。

[作ったスクリプト]
Option Explicit
Dim Foldername,NewFolderName
Dim FS

Const Foldername = "C:\test"
Const NewFolderName = "temp"

Set FS = WScript.CreateObject("Scripting.FileSystemObject")
folderpath = FS.BuildPath(foldername,newfoldername)

if FS.FolderExists(folderpath) Then
   MsgBox "同じフォルダがあります"
   WScript.Quit
end if

FS.CreateFolder folderpath
MsgBox folderpath & "を作成"

filepath = FS.BuidPath(folderpath,"a.txt")

FS.CreateTextFile filepath
MsgBox filepath & "を作成"


魔界の仮面弁士  2007-12-26 12:15:02  No: 138483

>「はい」「いいえ」みたいに選択する方法

'はい/いいえの2択、疑問符アイコン、初期値=[はい]
If MsgBox("メッセージ1", vbYesNo Or vbQuestion, "タイトル") = vbYes Then
   MsgBox "Yesが押された", vbInformation
Else
   MsgBox "Noが押された", vbExclamation
End If

'はい/いいえ/キャンセルの3択、疑問符アイコン、初期値=[キャンセル]
ret = MsgBox("メッセージ2", vbYesNoCancel Or vbQuestion Or vbDefaultButton3, "タイトル")
If ret = vbYes Then
   MsgBox "Yesが押された", vbInformation
ElseIf ret = vbNo Then
   MsgBox "Noが押された", vbExclamation
ElseIf ret = vbCancel Then
   MsgBox "Cancelが押された"
End If

'はい/いいえの2択、疑問符アイコン、初期値=[いいえ]、5秒間選択が無ければ閉じる
ret = WScript.CreateObject("WScript.Shell").Popup("メッセージ3", 5, "タイトル", vbYesNo Or vbQuestion Or 

vbDefaultButton2)
If ret = -1 Then
   MsgBox "5秒間応答が無かったので、勝手に閉じられた", vbWarning
ElseIf ret = vbYes Then
   MsgBox "Yesが押された", vbInformation
ElseIf ret = vbNo Then
   MsgBox "Noが押された", vbExclamation
ElseIf ret = vbCancel Then
   MsgBox "Cancelが押された"
End If


魔界の仮面弁士  2007-12-26 12:17:48  No: 138484

一箇所訂正。m(_ _)m

> MsgBox "5秒間応答が無かったので、勝手に閉じられた", vbWarning

この部分、vbWarning ではなく、vbCritical の書き間違いでした。


岩男  2007-12-27 10:32:32  No: 138485

魔界の仮面弁士さん、質問に対して詳しい詳細を記載して頂き、有難う御座います。
無事にやりたい事が出来ました。感謝致します。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加