X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=_src%2F_vbslib%20manual.files%2Fvbs_memo.files%2Fvbs_memo_04.html;h=f549d7db294785c26ac7c31644508fa5a920bc0c;hb=789b8160859f55b0be4b16cb2a92639ae41d3b51;hp=6e808ce4a498b5fa4ef91a10310f4bfdf8ea1309;hpb=b3a835050ab0797a5a3d94ba4e3b6a30670622ae;p=vbslib%2Fmain.git diff --git a/_src/_vbslib manual.files/vbs_memo.files/vbs_memo_04.html b/_src/_vbslib manual.files/vbs_memo.files/vbs_memo_04.html index 6e808ce..f549d7d 100644 --- a/_src/_vbslib manual.files/vbs_memo.files/vbs_memo_04.html +++ b/_src/_vbslib manual.files/vbs_memo.files/vbs_memo_04.html @@ -87,26 +87,462 @@ function out( text ){ text.style.display = "none"; } - + -© -¥ -£ +© +¥ +£
ª
- - -
+ + + +
+Set sh = WScript.CreateObject("WScript.Shell")
+sh.Run "sub.vbs param1",1,True
+Set sh = Nothing
+ + + + +
+I‚í‚é‚܂ő҂iÈ—ª‚·‚é‚ÆFALSEj
+ + + +
+’ʏí‚̃EƒBƒ“ƒhƒEiÈ—ª‰Â”\j
+
+ŒÄ‚яo‚µæ‚ªˆÙ‚È‚éƒtƒHƒ‹ƒ_‚É‚ ‚é‚Æ‚«AƒJƒŒƒ“ƒgƒtƒHƒ‹ƒ_‚́A
+ŒÄ‚яo‚µŒ³‚̃tƒHƒ‹ƒ_‚Ì‚Ü‚Ü‚É‚È‚Á‚Ä‚¢‚é‚̂ŁAŒÄ‚яo‚µæ‚ŁA
+ŽŸ‚̂悤‚É‚µ‚ăJƒŒƒ“ƒgƒtƒHƒ‹ƒ_‚ðˆÚ“®‚·‚é‚Æ‚æ‚¢‚Å‚µ‚傤B
+
+Set fs = CreateObject("Scripting.FileSystemObject")
+Set sh = WScript.CreateObject("WScript.Shell")
+oldDir = sh.CurrentDirectory
+sh.CurrentDirectory = fs.GetParentFolderName( Wscript.ScriptFullName )
+
+sh.CurrentDirectory = oldDir
+Set sh = Nothing
+Set fs = Nothing
+
+iŽå‚ȏˆ—‚ð‚±‚±‚ɏ‘‚­j
+ +
+WScript.Sleep( 1000 )
+ +
+WScript.Quit
+
+icscript.exe ‚ł́A•Ê‚̃Rƒ}ƒ“ƒhƒvƒƒ“ƒvƒgEƒEƒBƒ“ƒhƒE‚ª•\Ž¦‚³‚ê‚Ä‚µ‚Ü‚¢‚Ü‚·Bj
+
+‚Ü‚½‚Í
+ +
+WScript.CreateObject("WScript.Shell").Run "sub.vbs param1",,True
+ + + + + + + + + + +© +¥ +£ + + + +
+RunWithOption  "main.vbs", "/opt1"
+
+Sub  RunWithOption( FName, Opt )
+  Dim g_fs : Set  g_fs = CreateObject( "Scripting.FileSystemObject" )
+  Dim  cmdline : cmdline = "cmd /K cscript.exe //nologo """+g_fs.GetParentFolderName( _
+            WScript.ScriptFullName)+"\" + FName + """ " + Opt
+  For i=0 To WScript.Arguments.Count - 1
+    If InStr( WScript.Arguments(i), " " ) = 0 Then _
+          cmdline=cmdline+" "+WScript.Arguments(i) _
+    Else  cmdline=cmdline+" """+WScript.Arguments(i)+""""
+  Next
+  CreateObject("WScript.Shell").Run  cmdline
+  WScript.Quit  0
+End Sub
+
+main_opt1.vbs
+
+main.vbs
+
+/opt1
+ + + + + + + + + + +© +¥ +£ + + +
+Option Explicit
+Set g_fs = CreateObject( "Scripting.FileSystemObject" )
+Set f = g_fs.OpenTextFile( "vbslib.vbs" )
+Execute f.ReadAll()
+f = Empty
+ +
+(cache)
+ + +
+ƒCƒ“ƒNƒ‹[ƒh‚µ‚悤‚Æ‚·‚éƒXƒNƒŠƒvƒg‚ɃGƒ‰[‚ª”­¶‚·‚é‚ƁAƒƒCƒ“‚ŃGƒ‰[‚ª”­¶‚µ‚½‚悤
+‚ɃGƒ‰[‚ªo‚Ä‚µ‚Ü‚¢‚Ü‚·B ƒGƒ‰[ƒƒbƒZ[ƒW‚̍s”ԍ†‚Í 0 ŒÅ’è‚Æ‚È‚è‚Ü‚·B
+ + +
+<job>
+<script language="vbscript" src="lib.vbs"/>
+<script language="vbscript">
+SubA
+</script>
+</job>
+ +
+Sub SubA
+  WScript.Echo "SubA"
+End Sub
+
+main.wsf
+
+lib.vbs
+
+main.wsf ‚ðŽÀs‚·‚é‚ƁAlib.vbs ‚Ì SubA ‚ðŒÄ‚яo‚µ‚Ü‚·B
+
+lib.vbs ‚ŃGƒ‰[‚ª”­¶‚·‚é‚ƁAmain.wsf ‚ŃGƒ‰[‚ª”­¶‚µ‚½‚悤‚ɃGƒ‰[‚ªo‚Ä‚µ‚Ü‚¢‚Ü‚·B
+ƒGƒ‰[ƒƒbƒZ[ƒW‚̍s”ԍ†‚́Alib.vbs ‚̍s”ԍ†‚ð•\‚µ‚Ä‚¢‚邱‚Æ‚ª‚ ‚è‚Ü‚·B
+
+ƒXƒNƒŠƒvƒg“à‚©‚çAƒCƒ“ƒNƒ‹[ƒh‚·‚éƒtƒ@ƒCƒ‹‚ðŽw’è‚·‚邱‚Æ‚Í‚Å‚«‚Ü‚¹‚ñB
+iXML•”•ª‚ɐÓI‚ɏ‘‚­•K—v‚ª‚ ‚è‚Ü‚·j
+
+ƒvƒƒV[ƒWƒƒ‚Ì’†‚Å Execute ‚·‚é‚ƁAƒOƒ[ƒoƒ‹•Ï”‚Å‚Í‚È‚­‚È‚è‚Ü‚·B
+ŠÖ”‚Í’è‹`‚³‚ê‚Ü‚·B ‚·‚Å‚É’è‹`‚³‚ê‚Ä‚¢‚éŠÖ”‚͏㏑‚«‚³‚ê‚Ü‚·B
+ƒNƒ‰ƒX‚à’è‹`‚³‚ê‚Ü‚·B ‚·‚Å‚É’è‹`‚³‚ê‚Ä‚¢‚éƒNƒ‰ƒX‚ª‚ ‚é‚ƃGƒ‰[‚É‚È‚è‚Ü‚·B
+iƒNƒ‰ƒX‚́AƒCƒ“ƒXƒ^ƒ“ƒX‚ɉe‹¿‚·‚邽‚ߏ㏑‚«‚Å‚«‚Ü‚¹‚ñj
+
+Execute ‚âAscript src ƒ^ƒO‚Å WSF ƒtƒ@ƒCƒ‹‚ðƒCƒ“ƒNƒ‹[ƒh‚·‚邱‚Æ‚Í‚Å‚«‚Ü‚¹‚ñB
+ +
+Execute ‚Å’è‹`‚µ‚½ŠÖ”‚́AŠÖ”‚Ì’¼‰º‚©‚çŒÄ‚яo‚·‚Æ‚«‚µ‚©Žg‚¦‚Ü‚¹‚ñB
+‘¼‚̊֐”‚©‚çŒÄ‚яo‚·‚Æ‚«‚ÉŽg‚¦‚é‚悤‚É‚µ‚½‚¢‚Æ‚«‚́AExecuteGlobal ‚Å’è‹`‚µ‚Ä‚­‚¾‚³‚¢B
+
+JScript ‚ł́A
+
+(cache)
+ +
+ŠÖ˜A
+
+ŽQl
+ + + + + + + + + + + + +© +¥ +£ + + +
+Windows Script Component(*.wsc) ƒtƒ@ƒCƒ‹‚É‹Lq‚³‚ꂽƒXƒNƒŠƒvƒg‚́ACOM ƒIƒuƒWƒFƒNƒg‚É‚È‚ê‚Ü‚·B
+COM ƒIƒuƒWƒFƒNƒg‚Ȃ̂ŁAVBScript ‚â JScript ‚È‚Ç‚©‚çŒÄ‚яo‚·‚±‚Æ‚ª‚Å‚«‚Ü‚·B
+WSC ƒtƒ@ƒCƒ‹‚ɂ́AVBScript ‚Æ JScript ‚ð¬Ý‚³‚¹‚邱‚Æ‚ª‚Å‚«‚Ü‚·B
+WSC ƒtƒ@ƒCƒ‹‚É‚æ‚éCOM ƒIƒuƒWƒFƒNƒg‚̃zƒXƒg‚́AScrobj.dll ‚Å‚·B
+ + +
+ŽQl
+
+*.wsc ƒtƒ@ƒCƒ‹‚Ì’†‚ł́AWScript ƒIƒuƒWƒFƒNƒg‚́A‚ ‚ç‚©‚¶‚ß—pˆÓ‚³‚ê‚Ä‚¢‚Ü‚¹‚ñB
+ƒOƒ[ƒoƒ‹•Ï” g_Name ‚́AGetObject ‚Ŏ擾‚µ‚½•¡”‚̃IƒuƒWƒFƒNƒg‚Ì‚»‚ꂼ‚ê‚ɁAˆÙ‚È‚é•Ï”—̈æ
+‚ðŽ‚¿‚Ü‚·B
+ +
+Set g_fs = WScript.CreateObject( "Scripting.FileSystemObject" )
+Set obj = GetObject( "Script:"+ g_fs.GetAbsolutePathName( "ClassA.wsc" ) )
+obj.MethodByJS   WScript, "ABC"
+WScript.Echo  obj.Name
+
+*.wsc ‚ðŽg‚¤ƒTƒ“ƒvƒ‹F
+ +
+<?xml version="1.0"?>
+<?component error="true" debug="false"?>
+<component>
+<public>
+  <method name="MethodByJS"><PARAMETER name="Param1"/><PARAMETER name="Param2"/></method>
+  <property name="Name" internalName="g_Name"/>
+  <property name="Prop2"><get internalName="GetProp2"/><put internalName="PutProp2"/></property>
+  <event name="namechanged"/>
+</public>
+<script language="JScript"><![CDATA[
+var  g_Name = "ABC";
+function  MethodByJS( Param1, Param2 )
+{
+  Param1.Echo( "MethodByVBS  "+ Param2 );
+}
+]]></script>
+</component>
+
+*.wsc ƒtƒ@ƒCƒ‹‚̃Tƒ“ƒvƒ‹F
+ +
+¨ wsc_sample.zip
+
+WSC ƒtƒ@ƒCƒ‹‚Ì’†‚ðƒfƒoƒbƒO‚·‚é‚Æ‚«‚́A?component debug ‚ð true ‚É‚µ‚Ä‚­‚¾‚³‚¢B
+ + + + + + + + + + +© +¥ +£ + + + +
+Set g_sh = CreateObject( "WScript.Shell" )
+root = g_sh.ExpandEnvironmentStrings( "%windir%\System" )
+
+windir ‚ª’è‹`‚³‚ê‚Ä‚¢‚È‚¢‚Æ‚«‚́A%windir% ‚Ì‚Ü‚Ü‚É‚È‚è‚Ü‚·
+ + +
+ŠÖ˜A
+ + + + + + + + + + + +© +¥ +£ + + + + +
+Windows ‚́A’èŠú“I‚É”CˆÓ‚̃oƒbƒ`ˆ—‚ðŽÀs‚·‚é‚悤‚ɃXƒPƒWƒ…[ƒ‹‚·‚邱‚Æ‚ª‚Å‚«‚Ü‚·B
+
+Žw’è‚Ì“úŽž‚Ɉê“x‚¾‚¯s‚Á‚½‚èA’èŠú“I‚ɉ½“x‚às‚Á‚½‚è‚Å‚«‚Ü‚·B
+ƒXƒŠ[ƒv‚⃍ƒOƒIƒt‚µ‚Ä‚¢‚Ä‚àŠJŽn‰Â”\‚Å‚·B
+ŽÀs‚·‚郆[ƒU‚ªƒƒOƒIƒ“‚µ‚Ä‚¢‚È‚¢‚ƁAƒEƒBƒ“ƒhƒE‚Í•\Ž¦‚³‚ê‚Ü‚¹‚ñBiƒ†[ƒU‚̐؂è‘Ö‚¦‚Å
+— ‚Å“®‚¢‚Ä‚¢‚é‚Æ‚«‚Í•\Ž¦‚³‚ê‚Ü‚·j
+“Á’è‚̏ˆ—‚ªI‚í‚Á‚Ä‚©‚çAŽŸ‚̏ˆ—‚ð‚·‚®‚ÉŽÀs‚·‚é‚Æ‚«‚́Aƒoƒbƒ`ƒtƒ@ƒCƒ‹‚ȂǂŐ§Œä‚µ‚Ü‚·B
+
+E
+E
+E
+
+E
+
+ƒoƒbƒ`ƒtƒ@ƒCƒ‹‚È‚Ç‚©‚çŽÀs‚Å‚«‚邱‚Æ‚ðŠm”F‚µ‚Ä‚©‚çAƒ^ƒXƒN‚ðì¬‚µ‚Ä‚­‚¾‚³‚¢B
+
+ˆ—‚ðs‚¤ƒvƒƒOƒ‰ƒ€‚ªAƒoƒbƒ`ƒtƒ@ƒCƒ‹‚È‚Ç‚©‚珈—‚ðŠJŽn‚Å‚«‚é‚悤‚É‚È‚Á‚Ä‚¢‚é•K—v‚ª‚ ‚è‚Ü‚·B
+•Ê‚̃†[ƒU‚ªƒƒOƒIƒ“’†‚Å‚à³‚µ‚­“®ì‚·‚é‚ɂ́AƒvƒƒOƒ‰ƒ€‚̏I—¹‚܂ŁAŽÀs‚·‚é•K—v‚ª‚ ‚è‚Ü‚·B
+
+‚Å‚«‚邱‚Æ
+
+Ý’è•û–@
+ +
+ƒTƒ“ƒvƒ‹
+
+¨ TaskScheduler ƒtƒHƒ‹ƒ_[ (vbslib)
+ + + + + + + + + + +© +¥ +£ + + + + + + + + + + + + + + + +
+[ ƒRƒ“ƒgƒ[ƒ‹ ƒpƒlƒ‹ | ƒ^ƒXƒN n ‚Å [ ƒ^ƒXƒN‚̒ljÁ ] ‚ðƒ_ƒuƒ‹ƒNƒŠƒbƒN‚µ‚Ü‚·B
+
+[ ŽQÆ ] ‚ŁAˆ—“à—e‚ðŽ¦‚·Aƒoƒbƒ`ƒtƒ@ƒCƒ‹‚âƒXƒNƒŠƒvƒgƒtƒ@ƒCƒ‹‚È‚Ç‚ðŽw’肵‚Ü‚·B
+
+–ˆ“úA•½“úAn“úŠÔŠu
+
+ŠúŠÔ‚Ì’PˆÊ‚ðŽw’肵‚Ü‚·B i‚±‚ÌŽŸ‚ŁAŽž‚â—j“ú‚È‚Ç‚ðŽw’肵‚Ü‚·j
+
+—j“úŽw’èAnTŠÔŠu
+
+–ˆŒŽn“úA‘æn m—j“ú
+
+ŽžŒv‚ª‚‚¢‚½ƒAƒCƒRƒ“‚ªAƒ^ƒXƒN‚ɒljÁ‚³‚ê‚Ü‚·B
+
+ƒAƒCƒRƒ“‚ð‰EƒNƒŠƒbƒN‚µ [ ƒvƒƒpƒeƒB ] ‚ŁA‚³‚ç‚ɏڍׂðÝ’è‚Å‚«‚Ü‚·B
+
+ƒvƒƒOƒ‰ƒ€‚ðŽÀs‚·‚郆[ƒU‚ðŽw’肵‚Ü‚·B
+“Á’è‚̃†[ƒU‚Å‚µ‚©ˆ—‚ª‚Å‚«‚È‚¢‚Æ‚¢‚¤‚±‚Æ‚Å‚È‚¯‚ê‚΁A
+•’iŽg‚Á‚Ä‚¢‚郆[ƒU‚ō\‚¢‚Ü‚¹‚ñB
+
+ˆ—‚ðŽÀs‚·‚éƒoƒbƒ`ƒtƒ@ƒCƒ‹‚âƒXƒNƒŠƒvƒgƒtƒ@ƒCƒ‹‚ð‚ ‚ç‚©‚¶‚ߍì‚Á‚Ä‚¨‚«‚Ü‚·B
+Žw’肵‚½ŽžŠÔ‚É‚È‚é‚ƁAƒ_ƒuƒ‹ƒNƒŠƒbƒN‚µ‚½‚Æ‚«‚Æ“¯‚¶“®‚«‚ð‚µ‚Ü‚·B
+
+V‹Kƒ^ƒXƒNEƒEƒBƒU[ƒh‚́AŽŸ‚̐ݒè‚ðs‚¢‚Ü‚·B
+
+ˆ—‚ðŽÀs‚·‚éƒoƒbƒ`ƒtƒ@ƒCƒ‹‚È‚Ç
+ŽÀs‚·‚éŠÔŠui1‰ñ‚¾‚¯‚à‰Â”\j
+ŠJŽnŽž
+ŽÀs‚·‚郆[ƒUi’ʏí‚́A•’iŽg‚Á‚Ä‚¢‚郆[ƒU‚Å‚æ‚¢j
+
+E
+E
+E
+E
+
+ƒXƒŠ[ƒvó‘Ô‚âƒoƒbƒeƒŠ[ó‘Ô‚Å‚àŽÀs‚·‚é‚Æ‚«‚́Au“dŒ¹‚ÌŠÇ—v‚̐ݒ肪•K—v‚Å‚·B
+
+ˆê——‚ɂ́Aƒ†[ƒU–{l‚ªì¬‚µ‚½ƒ^ƒXƒN‚µ‚©•\Ž¦‚³‚ê‚Ü‚¹‚ñ‚ªA
+ƒƒOƒIƒtó‘Ԃ̃†[ƒU‚ªì¬‚µ‚½ƒ^ƒXƒN‚àŽÀs‚³‚ê‚Ü‚·B
+
+Ž©•ª‚Å‚à
+ƒpƒXƒ[ƒh‚Ì
+“ü—Í‚ª•K—v‚Å‚·
+
+ƒpƒ‰ƒ[ƒ^‚ÌŽw’è‚́AƒEƒBƒU[ƒh‚ł͍s‚¦‚Ü‚¹‚ñB[ ƒvƒƒpƒeƒB ] ‚Őݒ肵‚Ä‚­‚¾‚³‚¢B
+
+[ ƒ^ƒXƒN ] ƒ^ƒu
+
+[ Ý’è ] ƒ^ƒu
+ + + + + + + + + + +© +¥ +£ + + + -
+
Windows7 ‚̃^ƒXƒN‚ª‹N“®‚·‚éðŒiŽž‚Ȃǁj‚É‚È‚Á‚½‚Æ‚«APC ‚ªƒXƒŠ[ƒvó‘Ô‚È‚çA
ƒXƒŠ[ƒv‚©‚ç•œ‹A‚µ‚½’¼Œã‚Ƀ^ƒXƒN‚ª‹N“®‚µ‚Ü‚·B
-
+
ƒ^ƒXƒN‚Ì [ ðŒ | ƒ^ƒXƒN‚ðŽÀs‚·‚邽‚߂ɃXƒŠ[ƒv‚ð‰ðœ‚·‚é] ‚Ƀ`ƒFƒbƒN“ü‚ê‚Ä‚ ‚ê‚΁A
30•b‘O‚É Sleep ó‘Ô‚©‚ç•œ‹A‚µ‚āAƒ^ƒXƒN‚ªŽÀs‚Å‚«‚Ü‚·B
-
+
w”¼ƒXƒŠ[ƒvó‘Ô‚Ö‚Ì“ü‚è•ûx
ƒXƒŠ[ƒvó‘Ô‚Ì‚Æ‚«‚ɁAStationTVi’nƒfƒWEƒAƒvƒŠj ‚̘^‰æŽžŠÔ‚Ì 5•ª‘O‚É‚È‚é‚ƁA”¼ƒXƒŠ[ƒvó‘Ô‚É
‚È‚è‚Ü‚·B —\–ñ˜^‰æ’†‚ɃXƒŠ[ƒv‚É“ü‚Á‚Ä‚àA”¼ƒXƒŠ[ƒvó‘Ô‚É‚È‚è‚Ü‚·B
@@ -128,86 +564,86 @@ shutdown ƒXƒNƒŠ[ƒ“ƒZ[ƒo[‚Ì‹N“®ŽžŠÔ‚ðÝ’肵‚Ä‚­‚¾‚³‚¢B ‚½‚¾‚µAWSH ‚Å”CˆÓ‚̃vƒƒZƒX‚ð‹N“®‚·‚é‚ƁA
ƒXƒNƒŠ[ƒ“ƒZ[ƒo[‚ª‹N“®‚·‚é‚Ü‚Å‚ÌŽžŠÔ‚𑪂Á‚Ä‚¢‚éƒ^ƒCƒ}[‚ªƒŠƒZƒbƒg‚³‚ê‚é‚Ì‚Å’ˆÓ‚µ‚Ä‚­‚¾‚³‚¢B
‚Ü‚½Ascr ƒtƒ@ƒCƒ‹‚𒼐ڋN“®‚µ‚½ê‡‚́A”¼ƒXƒŠ[ƒvó‘Ô‚©‚ç•œ‹A‚µ‚Ü‚¹‚ñB
-
+ -
+
ƒ^ƒXƒN‚ª‹N“®‚·‚éðŒ‚É‚È‚Á‚½‚Æ‚«‚ɁAPC ‚ªƒXƒŠ[ƒvó‘Ô‚Ì‚Æ‚«
-
+
”¼ƒXƒŠ[ƒvó‘Ԃł́A”¼ƒXƒŠ[ƒvó‘Ԃ̂܂܁Aƒ^ƒXƒN‚ª‹N“®‚Å‚«‚Ü‚·B
‚½‚¾‚µASleep ó‘Ô‚©‚ç’ʏíó‘Ô‚É•œ‹A‚µ‚Ü‚¹‚ñB
-
+
ˆ—‚ðŽÀs‚·‚éƒoƒbƒ`ƒtƒ@ƒCƒ‹‚âƒXƒNƒŠƒvƒgƒtƒ@ƒCƒ‹‚ð‚ ‚ç‚©‚¶‚ߍì‚Á‚Ä‚¨‚«‚Ü‚·B
Žw’肵‚½ŽžŠÔ‚É‚È‚é‚ƁAƒ_ƒuƒ‹ƒNƒŠƒbƒN‚µ‚½‚Æ‚«‚Æ“¯‚¶“®‚«‚ð‚µ‚Ü‚·B
-
+
ƒXƒ^[ƒgEƒƒjƒ…[‚©‚çAuƒ^ƒXƒNEƒXƒPƒWƒ…[ƒ‰v ‚ðŒŸõ‚µ‚Ä‹N“®‚µ‚Ü‚·B
‰E‚̃yƒCƒ“‚©‚çAuƒ^ƒXƒN‚̍쐬v ‚ð‰Ÿ‚µ‚Ü‚·B
[ ƒgƒŠƒK[ ] ‚ÉŠJŽnŽž‚âƒCƒxƒ“ƒg‚ð“ü—Í‚µ‚Ü‚·B
[ ‘€ì ] ‚ɁAŽÀs‚·‚éƒRƒ}ƒ“ƒh‚ð“ü—Í‚µ‚Ü‚·B
- - + + - + -
+ - - + + - + -
+ - - + + - + -
+ - - + + - + -
+ -
+ - - - - + + + + - + -© -¥ -£ - -
+© +¥ +£ + + - + -
+ - -
+ +
ex.StdIn, ex.StdOut, ex.StdErr
- -
+ +
Set g_sh = WScript.CreateObject( "WScript.Shell" )
Set ex = g_sh.Exec( "ipconfig.exe" )  ' ipconfig ‚ðŽÀs *******
Do While ex.Status = 0 : WScript.Sleep 100 : Loop
@@ -215,8 +651,8 @@ Do Until ex.StdOut.AtEndOfStream : WScript.Echo ex.StdOut.ReadLine() : Loop
Do Until ex.StdErr.AtEndOfStream : WScript.Echo ex.StdErr.ReadLine() : Loop
ex.ExitCode
ex = Empty
- -
+ +
Dim  ex, f
Set g_sh = WScript.CreateObject( "WScript.Shell" )
Set g_fs = WScript.CreateObject( "Scripting.FileSystemObject" )
@@ -230,135 +666,135 @@ Do Until ex.StdErr.AtEndOfStream : f.WriteLine ex.StdErr.ReadLine() : Loop

ex = Empty
f = Empty
- -
+ +
ex.Status   ' 0=ŽÀs’†, 1=I—¹
ex.ExitCode ' I—¹ƒR[ƒhi•Ô‚è’lj
- -
+ +
WScript.StdErr.Write "pass" & vbCR & vbLF
-
+ -
+
ƒtƒ@ƒCƒ‹‚É’Ç‹Lo—Í‚·‚é
- -
+ +
Set g_sh = WScript.CreateObject( "WScript.Shell" )
Set ex = g_sh.Exec( "ipconfig.exe" )  ' ipconfig ‚ðŽÀs *******
Do While ex.Status = 0 : WScript.Sleep 100 : Loop
text = ex.StdOut.ReadAll()
ex = Empty
- - - - + + + + - + -© -¥ -£ - -
+© +¥ +£ + + -
+ -
- + -
- + -
- + -
- + -
- + -
- + -
+ -
+ -
+ -
+ -
+ -
+ -
+ -
- + -
- + -
- + -
- + -
+ -
- + -
+ -
+ - - - - + + + + - + -© -¥ -£ - -
+© +¥ +£ + + -
+ - -
+ +
Set g_fs = WScript.CreateObject( "Scripting.FileSystemObject" )
Set f = g_fs.GetFile( "c:\a.txt" )
f.Name = "b.ini"
- -
+ +
Set g_fs = WScript.CreateObject( "Scripting.FileSystemObject" )
s = g_fs.GetParentFolderName( "c:\sub1\sub2\file.txt" )  ' s="c:\sub1\sub2"
s = g_fs.GetFileName( "c:\sub1\file.txt" )  ' s="file.txt"
@@ -366,1153 +802,384 @@ s = g_fs.GetDriveName( "c:\sub1\file.txt" )  ' s="c:"
s = g_fs.GetBaseName( "c:\sub1\file.txt" )  ' s="file"
s = g_fs.GetExtensionName( "c:\sub1\file.txt" )  ' s="txt"
s = g_fs.BuildPath( "c:\sub1", "file.txt" )  ' s="c:\sub1\file.txt"
-
+ -
+
C:\a.txt ‚ðb.ini ‚É•Ï‚¦‚Ä‚¢‚Ü‚·B
-
+ -
+
ƒJƒŒƒ“ƒgƒtƒHƒ‹ƒ_‚ðŠî€‚ɁA‘Š‘΃pƒX‚ðƒtƒ‹EƒpƒX‚É‚µ‚Ü‚·B
-
+
ŽÀÛ‚Ƀtƒ@ƒCƒ‹‚ª‘¶Ý‚µ‚È‚­‚Ä‚à³‚µ‚­‘€ì‚³‚ê‚Ü‚·B
-
+ -
-¨ ExpandWildcard (VBSLib)
- -
+ + +
ƒtƒ‹EƒpƒX = g_fs.GetAbsolutePathName( ‘Š‘΃pƒX )
-
- + -
- + -
+
g_fs.GetAbsolutePathName( ƒtƒ‹EƒpƒX + "\.." ) ‚Æ‚·‚é‚ƁAeƒtƒHƒ‹ƒ_‚Ì
ƒtƒ‹EƒpƒX‚É‚È‚è‚Ü‚·B
g_fs.GetAbsolutePathName( "C:\folder\..\a.txt" ) ‚́A"C:\folder\..\a.txt"
‚Ì‚Ü‚Ü‚Å‚·B
g_fs.GetAbsolutePathName( "C:\folder\*" ) ‚́A"C:\folder\." ‚É‚È‚è‚Ü‚·B
-
+ -
+
‘¶Ý‚·‚éƒtƒ@ƒCƒ‹‚Ì–¼‘O‚ð•Ï‚¦‚Ü‚·B
-
+ -
+ -
+ -
+ -
+ - -
+ +
s = g_fs.GetParentFolderName( s ) + "\" + g_fs.GetBaseName( s ) + ".csv"
- -
+ +
Set g_fs = WScript.CreateObject( "Scripting.FileSystemObject" )
Set f = g_fs.GetFolder( "c:\folderA" )
f.Name = "folder1"
-
+
C:\folderA ‚ðfolder1 ‚É•Ï‚¦‚Ä‚¢‚Ü‚·B
-
+
‘¶Ý‚·‚éƒtƒHƒ‹ƒ_‚Ì–¼‘O‚ð•Ï‚¦‚Ü‚·B
-
+
•Ï‚¦‚悤‚Æ‚·‚é–¼‘O‚̃tƒ@ƒCƒ‹‚ªŠù‚É‚ ‚é‚Æ‚«‚́AƒGƒ‰[‚É‚È‚è‚Ü‚·B
-
+ -
+ - -
+ +
C:\Users\user1\Documents\sample.txt
-
+
ƒtƒ@ƒCƒ‹‚âƒtƒHƒ‹ƒ_‚̏ꏊ‚ðŽ¦‚·ƒAƒhƒŒƒX‚Ì‚±‚Æ‚ð“Á‚ɁAuƒpƒXv‚ÆŒ¾‚¢‚Ü‚·B
- -
+ +
C:\Users\user1\Documents\sample.txt
-
+
—áF
-
+
ã‹L‚́AWindows 7 ‚É‚¨‚¯‚éAuƒhƒLƒ…ƒƒ“ƒgvƒtƒHƒ‹ƒ_‚É‚ ‚é sample.txt ƒtƒ@ƒCƒ‹‚Ì
ƒtƒ‹EƒpƒX‚Å‚·B C:\ ‚©‚çŽn‚Ü‚é‚à‚Ì‚ð
ƒtƒHƒ‹ƒ_iƒGƒNƒXƒvƒ[ƒ‰[j‚́uƒAƒhƒŒƒXv‚ɏ‘‚©‚ê‚Ä‚¢‚Ü‚·B
\ ‚Ü‚½‚Í / ‚́AWindows ‚É‚¨‚¯‚éƒtƒHƒ‹ƒ_[‚Ì‹æØ‚è‚ðŽ¦‚µ‚Ü‚·B
-
+
C: ‚́AƒRƒ“ƒsƒ…[ƒ^[‚Ì C ƒhƒ‰ƒCƒu‚ð•\‚µ‚Ä‚¨‚èA’ʏíAPC ‚É“ü‚Á‚Ä‚¢‚é
ƒn[ƒhƒfƒBƒXƒN‚É‚È‚è‚Ü‚·B USB ƒƒ‚ƒŠ‚ð‘}‚·‚ƁAE ƒhƒ‰ƒCƒu‚È‚Ç‚ª‚Å‚«‚Ü‚·B
-
+
ˆê”ʂɃXƒNƒŠƒvƒg‚ɂ́A
‘Š‘΃pƒX‚́A
-
+
ƒJƒŒƒ“ƒgƒtƒHƒ‹ƒ_[
-
+
‘Š‘΃pƒX
-
+
ƒtƒ‹EƒpƒX
- -
+ +
C:\Folder1
-
+
C:\Folder1\File1.txt
-
+
File1.txt
-
+
C:\Folder1
-
+
sub\File1.txt
-
+
C:\Folder1\sub\File1.txt
-
+
C:\Folder1\File1.txt
-
+
.\File1.txt
-
+
C:\Folder1
-
+
..\File1.txt
-
+
C:\File1.txt
-
+
C:\Folder1
-
+
ŠÂ‹«•Ï”‚ðŠÜ‚ÞƒpƒX‚́A
-
+ -
+
‚Ü‚½‚́A
-
-env (vbslib)
-
+ +
‚Å“WŠJ‚Å‚«‚Ü‚·B
-
+
C:\File1.txt
-
+
..\..\File1.txt
-
+
C:\Folder1\sub
-
- + -
+
‚â
-
+
‚́A’ʏíA‹N“®‚µ‚½ƒXƒNƒŠƒvƒgEƒtƒ@ƒCƒ‹i.vbsj‚ª‚ ‚éƒtƒHƒ‹ƒ_[‚É‚È‚è‚Ü‚·B
-
+
ƒL[ƒ[ƒhF
-
+ -
+
ƒCƒ“ƒ^[ƒlƒbƒg‚É‚ ‚éƒtƒ@ƒCƒ‹‚̏ꏊ‚ðŽ¦‚·ƒAƒhƒŒƒX‚́AURL ‚Ü‚½‚Í URI ‚ÆŒ¾‚¢‚Ü‚·B
-
+ -
+ -
+
‚ÆŒ¾‚¢‚Ü‚·B
-
+
ƒtƒ‹EƒpƒX
-
+
‚©AŠÂ‹«•Ï”‚ðŠÜ‚ñ‚¾ƒpƒX‚ð‹Lq‚µ‚Ü‚·B
-
+
‘Š‘΃pƒX
-
+
‚ðŠî€‚Æ‚µ‚½ƒpƒX‚Å‚·B ƒJƒŒƒ“ƒgƒtƒHƒ‹ƒ_[‚́A
-
+
ƒJƒŒƒ“ƒgEƒtƒHƒ‹ƒ_[
-
+
‚ŁAÝ’è‚âŽQÆ‚ª‚Å‚«‚Ü‚·‚ªAƒXƒNƒŠƒvƒg‹N“®’¼Œã
-
-cd
-
+ +
‘Š‘΃pƒX‚É‹Lq‚·‚é . iƒsƒŠƒIƒhj‚́AƒJƒŒƒ“ƒgƒtƒHƒ‹ƒ_[A .. iƒsƒŠƒIƒh‚Q‚j‚́A
eƒtƒHƒ‹ƒ_[‚ð•\‚µ‚Ü‚·B
-
+
URL ‚́Aƒtƒ@ƒCƒ‹‘€ì‚Ȃǂ̊֐”‚ÉŽw’è‚·‚邱‚Æ‚Í‚Å‚«‚Ü‚¹‚ñB
-
-LAN i‰Æ’ë“àAŽÐ“àƒlƒbƒgƒ[ƒNj‚É‚ ‚éƒtƒ@ƒCƒ‹i\\ ‚ÅŽn‚Ü‚éƒAƒhƒŒƒXj‚́AŽw’è‚Å‚«
-‚Ü‚·B ‚½‚¾‚µAƒJƒŒƒ“ƒgEƒtƒHƒ‹ƒ_[iŒãqj‚ÉŽw’è‚·‚邱‚Æ‚Í‚Å‚«‚Ü‚¹‚ñB
-
-DownloadByHttp (vbslib)
-
+
+LAN i‰Æ’ë“àAŽÐ“àƒlƒbƒgƒ[ƒNj‚É‚ ‚éƒtƒ@ƒCƒ‹i\\ ‚ÅŽn‚Ü‚éƒAƒhƒŒƒXAUNCj‚́A
+copy ŠÖ”‚È‚Ç‚ÉŽw’è‚Å‚«‚Ü‚·B ‚½‚¾‚µAƒJƒŒƒ“ƒgEƒtƒHƒ‹ƒ_[iŒãqj‚ÉŽw’è‚·‚é
+‚±‚Æ‚Í‚Å‚«‚Ü‚¹‚ñB
+ +
‚È‚Ç‚ðŽg‚Á‚ă_ƒEƒ“ƒ[ƒh‚µ‚Ä‚­‚¾‚³‚¢B
-
+
—áF
- -
+ +
http://www.sage-p.com/vbslib/vbslib.htm
+
+ŽQl
+ + +
+¨ UNCFUniversal Naming Convention
+
+ŽQl
- - - - + + + + - + -© -¥ -£ - -
+© +¥ +£ + + -
+ -
+
ƒtƒ@ƒCƒ‹‚ðƒRƒs[‚µ‚Ü‚·
-
- + -
+
ƒtƒ@ƒCƒ‹‚ðˆÚ“®‚µ‚Ü‚·
-
- + -
+
ƒtƒHƒ‹ƒ_‚ðˆÚ“®‚µ‚Ü‚·
-
+ -
- + -
+
ƒtƒHƒ‹ƒ_‚ª‘¶Ý‚·‚é‚©‚Ç‚¤‚©‚ð•Ô‚µ‚Ü‚·
-
+ -
+
ƒtƒ@ƒCƒ‹‚ðíœ‚µ‚Ü‚·
-
- + -
+
ƒtƒHƒ‹ƒ_‚ðƒRƒs[‚µ‚Ü‚·
-
- + -
+
ƒtƒ@ƒCƒ‹‚ª‘¶Ý‚·‚é‚©‚Ç‚¤‚©‚ð•Ô‚µ‚Ü‚·
-
- + - -
+ +
Set g_fs = CreateObject("Scripting.FileSystemObject")
-
+
ƒIƒuƒWƒFƒNƒg‚̎擾
-
+
ƒƒ“ƒo
-
- + -
- + -
- + -
+
ƒtƒHƒ‹ƒ_‚ðì¬‚µ‚Ü‚·B
-
+ -
+
WSH ‚¾‚¯‚Å‚È‚­ VBA ‚Å‚àŽg‚¦‚Ü‚·B
-
+ -
+
ŠÖ˜A
- - - - + + + + - + -© -¥ -£ - -
+© +¥ +£ + + - -
+ +
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile  "ipLibCom.h", "..\..\..\inc\ipLibCom.h", True
Set fs = Nothing
- - - -
+ + + +
‹­§ã‘‚«
- - - -
+ + + +
V‚µ‚­‚Å‚«‚éƒtƒ@ƒCƒ‹–¼‚àŠÜ‚ß‚é
-
+
src ‚©‚ç dst ‚Ƀtƒ@ƒCƒ‹‚ðƒRƒs[‚µ‚Ü‚·B
-
+ - -
+ +
Sub  FileSystemObject::CopyFile( src as string, dst as string [, overwrite as Bool] )
-
+
yˆø”z
-
+
src
-
+
ƒRƒs[‚·‚éƒtƒ@ƒCƒ‹‚̃pƒXiƒRƒs[Œ³AƒƒCƒ‹ƒhƒJ[ƒh‰Âj
-
+
dst
-
+
ƒRƒs[æ‚̃tƒ@ƒCƒ‹‚̃pƒX
-
+
ƒTƒ“ƒvƒ‹
-
+
overwrite
-
+
ã‘‚«‚·‚é‚©‚Ç‚¤‚©B ƒfƒtƒHƒ‹ƒg True (*1)
-
+ -
+
False ‚Ì‚Æ‚«Aã‘‚«‚µ‚悤‚Æ‚·‚é‚ƃGƒ‰[‚É‚È‚è‚Ü‚·B
-
+
(*1)
-
- + -
+
ŽQl
-
+
ƒGƒ‰[
-
+
src ‚ÉŽw’肵‚½ƒtƒ@ƒCƒ‹‚ª–³‚¢‚Æ‚«AƒGƒ‰[ 76
- - - - - - - - - -© -¥ -£ - - -
-src ‚©‚ç dst ‚ɃtƒHƒ‹ƒ_‚ðƒRƒs[‚µ‚Ü‚·B
- -
-Sub  FileSystemObject::CopyFolder( src as string, dst as string [, overwrite as Bool] )
-
-yˆø”z
-
-src
-
-ƒRƒs[‚·‚éƒtƒHƒ‹ƒ_‚̃pƒXiƒRƒs[Œ³AƒƒCƒ‹ƒhƒJ[ƒh‰Â(*2)j
-
-dst
-
-ƒRƒs[æ‚̃tƒHƒ‹ƒ_‚̃pƒX
-
-overwrite
-
-ã‘‚«‚·‚é‚©‚Ç‚¤‚©B ƒfƒtƒHƒ‹ƒg True (*1)
- -
-False ‚Ì‚Æ‚«Aã‘‚«‚µ‚悤‚Æ‚·‚é‚ƃGƒ‰[‚É‚È‚è‚Ü‚·B
-
-(*1)
- -
-ŽQl
- -
-(*2)
-
-ƒƒCƒ‹ƒhƒJ[ƒh‚́AƒRƒs[æ‚Ƀ}ƒbƒ`‚µ‚È‚¢‚Æ‚«‚ÉŒÀ‚èŽg‚¦‚Ü‚·B
- - - - - - - - - - -© -¥ -£ - - - -
-Function  FileSystemObject::FileExists( path as string ) as Boolean
-
-ƒtƒ@ƒCƒ‹‚ª‘¶Ý‚·‚é‚©‚Ç‚¤‚©‚ð•Ô‚µ‚Ü‚·B
-ƒƒCƒ‹ƒhƒJ[ƒh‚ÍŽg‚¦‚Ü‚¹‚ñB
- - -
-ŠÖ˜A
-
-¨ Dir - ƒtƒ@ƒCƒ‹‚Ì—L–³ (Excel)
- - - - - - - - - - -© -¥ -£ - - - -
-Function  FileSystemObject::FolderExists( path as string ) as Boolean
-
-ƒtƒHƒ‹ƒ_‚ª‘¶Ý‚·‚é‚©‚Ç‚¤‚©‚ð•Ô‚µ‚Ü‚·B
-ƒƒCƒ‹ƒhƒJ[ƒh‚ÍŽg‚¦‚Ü‚¹‚ñB
- - - - - - - - - - - - -© -¥ -£ - - - - -
-Sub  FileSystemObject::MoveFile( src as string, dst as string )
-
-src ‚©‚ç dst ‚Ƀtƒ@ƒCƒ‹‚ðˆÚ“®‚µ‚Ü‚·B
-
-yˆø”z
-
-src
-
-ˆÚ“®‚·‚éƒtƒ@ƒCƒ‹iˆÚ“®Œ³AƒƒCƒ‹ƒhƒJ[ƒh‰Âj
-
-dst
-
-ˆÚ“®æ‚̃tƒ@ƒCƒ‹ƒpƒXiƒtƒHƒ‹ƒ_‚Ì‚Æ‚«‚́AÅŒã‚É \j
- -
-Set fs = CreateObject("Scripting.FileSystemObject")
-fs.MoveFile  "ipLibCom.h", "..\..\..\inc\ipLibCom.h"
-Set fs = Nothing
- - - -
-V‚µ‚­‚Å‚«‚éƒtƒ@ƒCƒ‹–¼‚àŠÜ‚ß‚é
-
-ƒTƒ“ƒvƒ‹
-
-y•â‘«z
-
-ƒhƒ‰ƒCƒu‚ð‚Ü‚½‚®‚Æ‚«‚́AƒGƒ‰[‚É‚È‚è‚Ü‚·
- - - - - - - - - - - -© -¥ -£ - - - -
-ƒtƒHƒ‹ƒ_‚ðˆÚ“®‚µ‚Ü‚·B
-Žg‚¢•û‚́A
-
-‚Æ“¯‚¶‚Å‚·B
- - - - - - - - - - - - -© -¥ -£ - - -
-ƒtƒHƒ‹ƒ_‚ðì¬‚µ‚Ü‚·B
-
-‚·‚łɃtƒHƒ‹ƒ_‚ª‚ ‚é‚Æ‚«‚́AƒGƒ‰[‚É‚È‚è‚Ü‚·B
- -
-  Dim g_fs : Set  g_fs = CreateObject( "Scripting.FileSystemObject" )
-  If not g_fs.FolderExists( path **** ) Then  g_fs.CreateFolder  path ****
- - - - - - - - - - -© -¥ -£ - - - - -
-Set fs = CreateObject("Scripting.FileSystemObject")
-WScript.Echo fs.GetFileName( "aa\bb.txt" )  // bb.txt ‚Æ•\Ž¦
-
-ƒpƒX‚̍Ōã‚Ì•”•ªiƒtƒ@ƒCƒ‹–¼A‚Ü‚½‚̓tƒHƒ‹ƒ_–¼j‚ð•Ô‚µ‚Ü‚·B
- - -
-ŠÖ˜A
-
-ƒTƒ“ƒvƒ‹F
- -
-Funtcion  FileSystemObject::GetFileName( Path as string ) as string
- - - - - - - - - - -© -¥ -£ - -
-FileSystemObject::GetExtensionName
- -
-  Dim ext : ext = g_fs.GetExtensionName( path )
-
-ƒTƒ“ƒvƒ‹F
- -
-Funtcion  FileSystemObject::GetExtensionName( Path as string ) as string
-
-ƒtƒ@ƒCƒ‹ƒpƒX‚©‚çŠg’£Žq‚ðŽæ‚èo‚µ‚Ü‚·B
-
-ŠÖ˜A
-
-Path
-
-GetExtensionName
- -
-"C:\folder\file.txt"
-
-"txt"
- -
-""
-
-"C:\folder\file."
-
-""
-
-"C:\folder\file"
-
-"C:\folder.files\file"
-
-""
-
-"file.html"
-
-"html"
- - - - - - - - - - -© -¥ -£ - - - -
-Function  FileSystemObject::GetFile( path as string ) as File
-
-Žw’肵‚½ƒpƒX‚ɑΉž‚·‚éƒtƒ@ƒCƒ‹ƒIƒuƒWƒFƒNƒg‚ð•Ô‚µ‚Ü‚·B
- - - - - - - - - - - - -© -¥ -£ - - - -
-Function  FileSystemObject::GetFolder( path as string ) as Folder
-
-Žw’肵‚½ƒpƒX‚ɑΉž‚·‚éƒtƒHƒ‹ƒ_[EƒIƒuƒWƒFƒNƒg‚ð•Ô‚µ‚Ü‚·B
- - -
-Žw’肵‚½ƒpƒX‚ɃtƒHƒ‹ƒ_[‚ª–³‚¢‚Æ‚«‚̓Gƒ‰[‚É‚È‚è‚Ü‚·B
-
-ŽQl
- - - - - - - - - - -© -¥ -£ - - - -
-Function  FileSystemObject::GetParentFolderName( path as string ) as string
-
-eƒtƒHƒ‹ƒ_‚̃pƒX‚ð•Ô‚µ‚Ü‚·B
-
-path ˆø”
-
-•Ô‚è’l
- -
-"C:\folder\file.txt"
-
-"C:\folder"
-
-"C:\folder"
-
-"C:\"
-
-"C:\"
-
-""
-
-""
-
-""
-
-"C:/folder"
-
-"C:/folder/file.txt"
- -
-"http://www.a.com/a.htm"
-
-"http://www.a.com"
-
-"http://www.a.com/"
-
-"http:"
-
-"a\b\file.txt"
-
-"http://www.a.com"
-
-"http:"
-
-"C:\"
-
-"C:\folder\"
-
-"a\b"
-
-""
-
-"file.txt"
-
-"a"
-
-"a\b"
-
-ƒtƒ@ƒCƒ‹–¼‚¾‚¯‚Ì‚Æ‚«‚Í "" ‚ª•Ô‚邽‚߁AŽŸ‚̂悤‚ȃR[ƒh‚Í”ð‚¯‚Ä‚­‚¾‚³‚¢B
- -
-g_fs.GetParentFolderName( fname ) +"\"+ g_fs.GetBaseName( exe_base_name )
-
-ŠÖ˜A
-
-"\folder\"
-
-""
-
-"\folder\file.txt"
-
-"\folder"
-
-•ª—Þ
-
-ƒtƒ‹EƒpƒX
-
-‘Š‘΃pƒX
-
-ƒtƒ@ƒCƒ‹–¼
-
-Linux Œ`Ž®
-
-URL
-
-© ’ˆÓ
-
-© ’ˆÓ
-
-© ’ˆÓ
-
-¨ GetParentFullPath
- - - - - - - - - - -© -¥ -£ - - - -
-Function  FileSystemObject::OpenTextFile( path as string, [iomode as integer],
-   [b_create as  boolean], [unicode as integer] ) as TextStream
-
-ƒtƒ@ƒCƒ‹‚ðŠJ‚«‚Ü‚·B ƒtƒ@ƒCƒ‹‚̍쐬‚Ü‚½‚͓ǂݍž‚Ý‚ðŠJŽn‚µ‚Ü‚·B
-
-yˆø”z
-
-path
-
-ƒtƒ@ƒCƒ‹‚̃pƒX
-
-iomode
-
-1=ƒŠ[ƒhA2=ƒ‰ƒCƒgA8=’ljÁAÈ—ªŽž=1
-
-b_create
-
-ƒtƒ@ƒCƒ‹‚ª–³‚¢‚Æ‚«‚ɃGƒ‰[‚Ɂu‚µ‚È‚¢v‚©‚Ç‚¤‚©
-
-unicode
-
-•Ô‚è’l
-
-TextStream ƒIƒuƒWƒFƒNƒg
-
-True=Unicode, False=Ascii, -2=Ž©“®”»’è
- - -
-Const  ForReading = 1, ForWriting = 2, ForAppending = 8
- -
-ƒGƒ‰[
- - -
-¨ OpenTextFile (vbslib)
-
-ŠÖ˜A
- - - - - - - - - - -© -¥ -£ - - - - -
-Function  FileSystemObject::CreateTextFile( path as string,
-   [b_overwrite as  boolean], [b_unicode as boolean] ) as TextStream
-
-ƒtƒ@ƒCƒ‹‚ðì¬‚µ‚Ü‚·B
-
-yˆø”z
-
-path
-
-ƒtƒ@ƒCƒ‹‚̃pƒX
-
-b_overwrite
-
-ã‘‚«‚·‚é‚©‚Ç‚¤‚©, ƒfƒtƒHƒ‹ƒg=False
-
-b_unicode
-
-•Ô‚è’l
-
-TextStream ƒIƒuƒWƒFƒNƒg
-
-True=Unicode, False=Ascii, ƒfƒtƒHƒ‹ƒg=False
-
-b_overwrite = False ‚É‚µ‚āAƒtƒ@ƒCƒ‹‚ª‚·‚Å‚É‘¶Ý‚µ‚Ä‚¢‚½‚Æ‚«‚́AƒGƒ‰[
- -
-‚É‚È‚è‚Ü‚·B
- -
-path ‚̃tƒ@ƒCƒ‹‚ðŠi”[‚·‚éƒtƒHƒ‹ƒ_‚ª‘¶Ý‚µ‚È‚¢‚Æ‚«‚́AƒGƒ‰[
-
-‚É‚È‚è‚Ü‚·B
-
-¨ CreateFile (vbslib)
-
-ŠÖ˜A
- - - - - - - - - - - -© -¥ -£ - - - - -
-Sub  FileSystemObject::DeleteFile( path as string, [force as boolean] )
-
-ƒtƒ@ƒCƒ‹‚ðíœ‚µ‚Ü‚·B
-
-yˆø”z
-
-path
-
-íœ‚·‚éƒtƒ@ƒCƒ‹‚̃pƒX
-
-iomode
-
-True ‚È‚çAƒŠ[ƒhƒIƒ“ƒŠ[‚Å‚à‹­§íœ
-
-path ‚ÉŽw’肵‚½ƒpƒX‚ɁAƒtƒ@ƒCƒ‹‚ª‘¶Ý‚µ‚È‚¢‚ƃGƒ‰[‚É‚È‚è‚Ü‚·B
-
-“Ç‚ÝŽæ‚èê—p‚É‚È‚Á‚Ä‚¢‚éƒtƒ@ƒCƒ‹‚ðŽw’è‚·‚é‚ƁAƒGƒ‰[70‚É‚È‚è‚Ü‚·B
- - - - - - - - - - -© -¥ -£ - - - -
-Sub  FileSystemObject::DeleteFolder( path as string, [force as boolean] )
-
-ƒtƒHƒ‹ƒ_‚ðíœ‚µ‚Ü‚·B
-
-yˆø”z
-
-path
-
-íœ‚·‚éƒtƒHƒ‹ƒ_‚̃pƒX
-
-force
-
-True ‚È‚çAƒŠ[ƒhƒIƒ“ƒŠ[‚Å‚à‹­§íœ
-
-ƒtƒHƒ‹ƒ_‚Ì’†‚Ƀtƒ@ƒCƒ‹‚ª‚ ‚Á‚Ä‚àíœ‚µ‚Ü‚·B
- - - - - - - - - - - -© -¥ -£ - -
-ƒtƒ@ƒCƒ‹ƒTƒCƒYiƒoƒCƒgj
-Šg’£Žq‚Ìà–¾B—áF"ƒeƒLƒXƒg ƒhƒLƒ…ƒƒ“ƒg"
- - -
-.Size
-.Type
-
-ƒvƒƒpƒeƒB
-
-.Copy
-.Delete
-.Move
-.OpenAsTextStream
-
-ƒƒ\ƒbƒh
-
-.Path
-.Name
-.ShortPath
-.ShortName
-
-ƒtƒ‹ƒpƒX iˆ—‚ª’x‚¢‚Å‚·j
-ƒtƒ@ƒCƒ‹–¼BƒtƒHƒ‹ƒ_ƒpƒX‚ðœ‚¢‚½‚à‚́B—áFa.txt iˆ—‚ª’x‚¢‚Å‚·j
-ƒtƒ‹ƒpƒXi8.3Œ`Ž®j
-ƒtƒ@ƒCƒ‹–¼i8.3Œ`Ž®j
-
-Drive ƒIƒuƒWƒFƒNƒg
-eƒtƒHƒ‹ƒ_i
-
-ì¬“úŽžiŽæ“¾‚̂݁j
-XV“úŽžiŽæ“¾‚̂݁j
-ƒAƒNƒZƒX“úŽžiŽæ“¾‚̂݁j
-
-.Drive
-.ParentFolder
-
-.DateCreated
-.DateLastModified
-.DateLastAccessed
- -
-j
- -
-File ƒIƒuƒWƒFƒNƒg‚́A
-
-‚ŁAŽæ“¾‚Å‚«‚Ü‚·B
- - -
-Set g_fs = CreateObject("Scripting.FileSystemObject")
-Set file = g_fs.GetFile( "list.txt" )
-WScript.Echo  file.DateLastModified
- -
-‘®«B “Ç‚ÝŽæ‚èê—pA‰B‚µƒtƒ@ƒCƒ‹‚È‚Ç
- - - - - + + + + - -
+ +