・ユ・。・、・、ホツクコ゚ウホヌァ
http://extstrg.asabiya.net/pukiwiki/index.php?%A5%D5%A5%A1%A5%A4%A5%EB%A4%CE%C2%B8%BA%DF%B3%CE%C7%A7フワシ。 †
ウオヘラ †
・ユ・。・、・、ホツクコ゚、ウホヌァ、ケ、、ヒ、マFileExistsエリソ、ネDirエリソ、サネヘム、ケ、ハヒ。、ャ、「、。」
Dirエリソ、マヒワヘ隍マ・ヌ・」・・ッ・ネ・ニ筅ホ・・ケ・ネ、シ霹タ、ケ、エリソ、ヌ、「、、ソ、癸「ヘムヒ。ナェ、ヒ、マナャ、オ、ハ、、、ホ、ヌウ莢ヲ、ケ、。」
FileExistsエリソ †
FileExistsエリソ、ヌツクコ゚ヘュフオ、ウホヌァ、キ、ソセケ遑「ツクコ゚、ケ、セケ遉マソソ。「、キ、ハ、、セケ遉マオカ、ャハヨ、オ、、。」
Set fso = WScript.CreateObject("Scripting.FileSystemObject") If fso.FileExists( ・ユ・。・、・フセ ) Then WScript.Echo "・ユ・。・、・、ャツクコ゚、キ、゙、ケ" End If
・・、・・ノ・ォ。シ・ノ、エ゙、爭ユ・。・、・フセ †
FileExistsエリソ、マ・・、・・ノ・ォ。シ・ノ、ヒツミア、キ、ニ、、、゙、サ、。」
ーハイシ、ホエリソ、トオチ、ケ、、ウ、ネ、ヌ・・、・・ノ・ォ。シ・ノ、サネヘム、キ、ソ・ユ・。・、・フセ、ホク。テホ、ャ、ヌ、ュ、゙、ケ。」
- エリソ
Function FileExists(Spec) Dim fso Dim ParentFolderName Set fso=CreateObject("Scripting.FileSystemObject") ParentFolderName=fso.GetParentFolderName(Spec) If ParentFolderName="" Then ParentFolderName="." On Error Resume Next fso.CopyFile Spec,ParentFolderName 'fso.MoveFile Spec,ParentFolderName FileExists=Err.Number<>53 End Function
- サネ、、ハ
If FileExists( "・ユ・。・、・フセ" & "*" ) Then WScript.Echo "・ユ・。・、・、ャツクコ゚、キ、゙、ケ" End If
Last-modified: 2008-10-28 (イミ) 15:21:25 (5948d)