2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic
Keresés

Új hozzászólás Aktív témák

  • #2891 BullZeye veterán Ispy #2890
    Új Válasz #2891
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    BullZeye

    veterán

    válasz Ispy #2890 üzenetére

    Köszi, ezt már próbáltam, sajnos erre a sorra azt írja:

    Érvénytelen eljáráshívás vagy argumentum: 800A0005
    set folder = fs.GetFolder(path)

    Ezzel az argumentummal indul amúgy a script az átnevezés miatt: %F (\w*\d{0,3})\.(\d{4}).*

    Fentiekkel kiegészített script:

    Set objRegExp = CreateObject("VBScript.RegExp")
    Set WshArg = WScript.Arguments
    Set FSO = CreateObject("Scripting.FileSystemObject")

    set fs = CreateObject("Scripting.FileSystemObject")
    set folder = fs.GetFolder(path)



    file_name=""
    new_file_name=""
    flag=False
    objRegExp.Pattern=WshArg.Item(1)
    If WshArg.Count>1 Then
    If FSO.FileExists(WshArg.Item(0)) Then
    Set File = FSO.GetFile(WshArg.Item(0))
    set TextStream = File.OpenAsTextStream(1)
    While Not TextStream.AtEndOfStream
    is_File=False
    file_name=TextStream.ReadLine()
    If FSO.FileExists(file_name) Then
    is_File=True
    End If
    If is_File Then
    Set File = FSO.GetFile(file_name)
    Else
    Set File = FSO.GetFolder(file_name)
    End If
    new_file_name=replace(objRegExp.Replace(FSO.GetBaseName(file_name), "$1 ($2)"),"."," ")
    If is_File Then
    new_file_name=new_file_name+"."+FSO.GetExtensionName(file_name)
    End If
    if is_File and not FSO.FileExists(new_file_name) Then
    flag=True
    ElseIf not is_File and not FSO.FolderExists(new_file_name) Then
    flag=True
    End If
    if flag Then
    File.Name=new_file_name
    Else
    msgbox "File/Folder " & new_file_name & " already exist. Can't rename ..."
    End If
    Wend
    End If
    End If

    folder.Move "F:\Filmek\"

    Próbáltam most ide-oda rakosgatni vagy beleépíteni a getfolder-t oda ahol már van egy getfile vagy getfolder, de ezzel sem működik, itt a Set Folder = FSO.GetFile(path) nem tetszik neki:

    Set objRegExp = CreateObject("VBScript.RegExp")
    Set WshArg = WScript.Arguments
    Set FSO = CreateObject("Scripting.FileSystemObject")

    file_name=""
    new_file_name=""
    flag=False
    objRegExp.Pattern=WshArg.Item(1)
    If WshArg.Count>1 Then
    If FSO.FileExists(WshArg.Item(0)) Then
    Set File = FSO.GetFile(WshArg.Item(0))
    set TextStream = File.OpenAsTextStream(1)
    While Not TextStream.AtEndOfStream
    is_File=False
    file_name=TextStream.ReadLine()
    If FSO.FileExists(file_name) Then
    is_File=True
    End If
    If is_File Then
    Set File = FSO.GetFile(file_name)
    Set Folder = FSO.GetFile(path)
    Else
    Set File = FSO.GetFolder(file_name)
    Set Folder = FSO.GetFolder(path)
    End If
    new_file_name=replace(objRegExp.Replace(FSO.GetBaseName(file_name), "$1 ($2)"),"."," ")
    If is_File Then
    new_file_name=new_file_name+"."+FSO.GetExtensionName(file_name)
    End If
    if is_File and not FSO.FileExists(new_file_name) Then
    flag=True
    ElseIf not is_File and not FSO.FolderExists(new_file_name) Then
    flag=True
    End If
    if flag Then
    File.Name=new_file_name
    Else
    msgbox "File/Folder " & new_file_name & " already exist. Can't rename ..."
    End If
    Wend
    End If
    End If

    folder.Move "F:\Filmek\"

Új hozzászólás Aktív témák

Hirdetés