6232333

回复 10# 再世情緣

   感谢感谢！
   发现提取JPG文件名称的还有点小问题，就是当文件夹上含有空格的时候，拖动在批处理图标上处理不了！有时间在帮我改下吗？

wskwfkbdn

如果文件名或路径没有什么特殊字符的话 基本都是可以处理的

http://www.bathome.net/viewthread.php?tid=39243&highlight=

6232333

回复 17# wskwfkbdn


    本人小白一个，看不懂，能帮我亲自改下吗？

WHY

vbs

On Error Resume Next
Dim n, fso, i, s, strFolder, objFile

n = WSH.Arguments.Length
if n = 0 Then MsgBox "请拖拽文件夹" : WSH.Quit()
Set fso = CreateObject("Scripting.FileSystemObject")

For i = 0 To n - 1
    strFolder = WSH.Arguments(i)
    If fso.FolderExists(strFolder) Then
        s = ""
        For Each objFile In fso.GetFolder(strFolder).Files
            If LCase(Right(objFile.Name, 4)) = ".jpg" Then
                s = s & objFile.Name & vbCrLf
            End If
        Next
        fso.CreateTextFile(strFolder & "\当前JPG文件清单.txt", True, -1).Write(s)
    End If
Next
复制代码

On Error Resume Next
Dim n, fso, i, s, strFolder, objFolder

n = WSH.Arguments.Length
if n = 0 Then MsgBox "请拖拽文件夹" : WSH.Quit()
Set fso = CreateObject("Scripting.FileSystemObject")

For i = 0 To n - 1
    strFolder = WSH.Arguments(i)
    If fso.FolderExists(strFolder) Then
        s = ""
        For Each objFolder In fso.GetFolder(strFolder).SubFolders
            s = s & objFolder.Name & vbCrLf
        Next
        fso.CreateTextFile(strFolder & "\当前文件夹清单.txt", True, -1).Write(s)
    End If
Next
复制代码

wskwfkbdn

回复 18# 6232333


    保存那个代码为bat即可，把文件拖上去就能够获取路径