Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

Rinominare files

  1. #1
    roccolamann non è in linea Scribacchino
    Post
    519
    Like Inviati  
    0
    Like Ricevuti  
    0
    Vorrei usare questa routine in VBA per rinominare un file
    Sub RinominareFiles()
    On Error Resume Next
    Dim MEssaggio As String
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")
    Set colFiles = objWMIService.ExecQuery("Select * from Cim_Datafile where Name = " & "'C:\Users\HP\Desktop\Nota.txt'")
    For Each objFile In colFiles
         errResult = objFile.Rename("C:\Users\HP\Desktop\Nota.txt")
     MEssaggio = MsgBox(errResult)
    Next
    End Sub
    
    Ma non funziona, nel senso che il file rimane così com'è.
    P.S. Probabilmente ho sbagliato sezione; ma tra i linguaggi ho cercato inutilmente il VBA.
    Chiedo scusa in anticipo.

  2. #2
    L'avatar di Brontolo
    Brontolo non è in linea Very Important Person
    Post
    3,135
    Like Inviati  
    5
    Like Ricevuti  
    5
    Comincia col togliere il Resume Next (perché ce l'hai messo ?) e poi ne riparliamo.
    ℹ️ Leggi di più su Brontolo ...

  3. #3
    L'avatar di dragone bianco
    dragone bianco non è in linea Amanuense
    Post
    7,756
    Like Inviati  
    0
    Like Ricevuti  
    3
    Ciao

    P.S. Probabilmente ho sbagliato sezione; ma tra i linguaggi ho cercato inutilmente il VBA.
    Chiedo scusa in anticipo.
    Dipende con che programma usi
    Esmpio
    VBA di WORD ne parliamo nella sezione WORD


    Per il tuo problema
    Dal ciclo for sembra che devi rinominare parecchi File
    Per rinominare un file devi avre il nome originale del File e il nome che vuoi usare
    Quindi ti manca un parametro nella SUB

    Ciao
    ℹ️ Leggi di più su dragone bianco ...

  4. #4
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,502
    Blogs
    5
    Like Inviati  
    6
    Like Ricevuti  
    35
    Mi sembra che il vecchio e nuovo nome corrispondano quindi è ovvio che non faccia nulla.
    ℹ️ Leggi di più su AntonioG ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. rinominare file
    Da undertaker nel forum Microsoft Access
    Risposte: 6
    Ultimo Post: 30-12-2018, 18:08
  2. rinominare files sostituendo solo una porzione di nome
    Da indigo5 nel forum Microsoft Access
    Risposte: 13
    Ultimo Post: 12-03-2016, 19:18
  3. Rinominare files mp3
    Da genespos nel forum Pausa caffè
    Risposte: 0
    Ultimo Post: 09-12-2013, 17:24
  4. Rinominare diversi files contenuti in una directory
    Da marxitpa nel forum Microsoft Excel
    Risposte: 2
    Ultimo Post: 16-03-2013, 12:31
  5. Rinominare file
    Da Sergran nel forum Microsoft Word
    Risposte: 4
    Ultimo Post: 17-11-2010, 17:58