달력

1

« 2015/1 »

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31

Set oArgs = WScript.Arguments


If oArgs.Count = 0 Then

  WScript.Echo "Argument was not provided."

  WScript.Quit

End If


strDirectory = ""

If oArgs.Count > 1 Then

  For i = 0 to oArgs.Count - 1

    strDirectory = strDirectory & oArgs(i) & " "

  Next

Else

  strDirectory = oArgs(0)

End If


Set oFSO = CreateObject("Scripting.FileSystemObject") 


Set Folder = oFSO.GetFolder(strDirectory)

Set Files = Folder.Files

NumOfFiles = Files.Count


Set Files = NOTHING

Set Folder = NOTHING

Set oFSO = NOTHING


WScript.Echo strDirectory & vbCRLF

WScript.Echo "# of Files: " & NumOfFiles





:
Posted by 커널64
2015. 1. 13. 21:47

VBS - 파일 수정 날짜 쿼리 (매개 변수) Etc.2015. 1. 13. 21:47

Set oArgs = WScript.Arguments


If oArgs.Count = 0 Then

  WScript.Echo "Argument was not provided."

  WScript.Quit

End If


strFilePath = ""

If oArgs.Count > 1 Then

  For i = 0 to oArgs.Count - 1

    strFilePath = strFilePath & oArgs(i) & " "

  Next

Else

  strFilePath = oArgs(0)

End If


Set sFSO = CreateObject("Scripting.FileSystemObject")

Set f = sFSO.GetFile(strFilePath)

FileModifiedDate = cDate(f.DateLastModified)


Set f = NOTHING

Set sFSO = NOTHING


WScript.Echo strFilePath & vbCRLF

WScript.Echo "Modified Date: " & FileModifiedDate



:
Posted by 커널64