#selectdirectory

[owltrick]

BATCH RENAME MENGGUNAKAN MS. EXCEL

Sub RenameMultipleFiles()    With Application.FileDialog(msoFileDialogFolderPicker)        .AllowMultiSelect = False        If .Show = -1 Then            selectDirectory = .SelectedItems(1)            dFileList = Dir(selectDirectory & Application.PathSeparator & "*")

           Do Until dFileList = ""                curRow = 0                On Error Resume Next                curRow = Application.Match(dFileList, Range("A:A"), 0)                If curRow > 0 Then                    Name selectDirectory & Application.PathSeparator & dFileList As _                    selectDirectory & Application.PathSeparator & Cells(curRow, "B").Value                End If

               dFileList = Dir            Loop        End If    End With End Sub

#EXCEL #RENAME #AUTO #TRICK #CODING

[chefrimer]

Credit: @hungry_yett hungry_yett & @tutkulu_lezzetler ❤️ #scones #ukfoodie #scotishfood #neotraditionalfood #creativefood #brittainfood #queensfood #cat #mrcat #simplybritishfoods #britishfoodshop #onlinebritishfoods #britishfoodsonline #englishfood #irishfood #welshfood #walesfood #canadalovesbritain #onlinefood #onlinefooddelivery #selectdirectory #whitbyontarioproud #glasgowfoodie #ukfoodblog #glasgowfood #sweetpotatopizza #pizzaslut #sweettattiepizza #homemade #makeyourown https://www.instagram.com/p/B_aJrdfjcv4/?igshid=6kdo3ou2mew8

#scones #ukfoodie #scotishfood #neotraditionalfood #creativefood #brittainfood #queensfood #cat #mrcat #simplybritishfoods #britishfoodshop #onlinebritishfoods #britishfoodsonline #englishfood #irishfood #welshfood #walesfood #canadalovesbritain #onlinefood #onlinefooddelivery #selectdirectory #whitbyontarioproud #glasgowfoodie #ukfoodblog #glasgowfood #sweetpotatopizza #pizzaslut #sweettattiepizza #homemade #makeyourown