0
특정 폴더 경로의 파일 형식을 기반으로 파일을 그룹화하는 VBScript를 작성했습니다 (입력으로 제공됨). 나는 폴더 경로가 비어있을 때 스크립트가 파일 경로를 언급해야한다는 시나리오를 처리하려고합니다. 그러나 나는 그것을 다룰 수 없다.IsEmpty가 예상대로 작동하지 않습니다.
v_Path = InputBox("Enter the FileName Along With Path")
If IsEmpty(v_Path) Then
MsgBox("What's the File Path?")
Else
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(v_Path)
Set colFiles = objFolder.Files
For Each objFile in colFiles
v_FileName = v_Path&"\" & objFile.Name
v_FileExtensionName = v_Path & "\" & objFso.GetExtensionName(v_FileName)
If Not(objFso.FolderExists(v_FileExtensionName)) Then
objFso.CreateFolder(v_FileExtensionName)
objFso.MoveFile v_FileName, v_FileExtensionName & "\"
Else
objFso.MoveFile v_FileName, v_FileExtensionName & "\"
End If
Next
MsgBox("Files Grouped Based on File Type!!")
End If
Set objFso = Nothing
Set objFolder = Nothing
Set colFiles = Nothing