提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 如花

    34人对此回答表示赞同


    如果可以,请加分。 这是查询部分,复制可以再写。
    On Error Resume Next
    Dim wShell,fso,objFileName
    objFileName=InputBox("输入文件名","FindObjectFile")
    If objFileName="" Then WScript.Quit
    Set fso=CreateObject("Scripting.FileSystemObject")
    Set wShell=CreateObject("Wscript.Shell")
    '
    For Each oDrive In fso.Drives
    If oDrive.DriveType<>4 Then
    strDrives=strDrives&oDrive.Path&"\ "
    End If
    Next
    cmd="cmd.exe /c for %1 in ("&strDrives&") do dir %1"&objFileName&" /b /s>>FindFile.txt"
    wShell.Run cmd,False,True
    Set txt=fso.OpenTextFile("FindFile.txt",1)
    If Not txt.AtEndOfStream Then
    tmp=txt.ReadAll
    End If
    txt.Close
    Msgbox tmp,vbYesNo,"已找到类似文件,是否复制文件到本目下?"
    fso.DeleteFile "FindFile.txt",False
    展开
    34
    0回复
    发布于 7年前

    评论(0)

    收起评论

  • 木头老兄

    34人对此回答表示赞同

    求视频教学
    展开
    34
    0回复
    发布于 8年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部