Note: The other languages of the website are Google-translated. Back to English

Sut i gopïo neu symud ffeiliau o un ffolder i'r llall yn seiliedig ar restr yn Excel? 

Os oes gennych restr o enwau ffeiliau mewn colofn mewn taflen waith, ac mae'r ffeiliau wedi'u lleoli mewn ffolder yn eich cywasgydd. Ond, nawr, mae angen i chi symud neu gopïo'r ffeiliau hyn pa enwau sydd wedi'u rhestru yn y daflen waith o'u ffolder wreiddiol i un arall fel y dangosir y screenshot canlynol. Sut allech chi orffen y dasg hon mor gyflym ag y gallwch yn Excel?

Copïwch neu symud ffeiliau o un ffolder i'r llall yn seiliedig ar restr yn Excel gyda chod VBA


Copïwch neu symud ffeiliau o un ffolder i'r llall yn seiliedig ar restr yn Excel gyda chod VBA

I symud y ffeiliau o un ffolder i'r llall yn seiliedig ar restr o enwau ffeiliau, gall y cod VBA canlynol ffafrio chi, gwnewch fel hyn:

1. Daliwch i lawr y Alt + F11 allweddi yn Excel, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod VBA canlynol yn Ffenestr y Modiwl.

Cod VBA: Symud ffeiliau o un ffolder i'r llall yn seiliedig ar restr yn Excel

Sub movefiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = " Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = " Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
            Kill xSPathStr & xVal
        End If
    Next
End Sub

3. Ac yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa o ddewis y celloedd sy'n cynnwys enwau'r ffeiliau, gweler y screenshot:

4. Yna cliciwch OK botwm, ac yn y ffenestr popped out, dewiswch y ffolder sy'n cynnwys y ffeiliau rydych chi am symud ohonyn nhw, gweler y screenshot:

5. Ac yna cliciwch OK, ewch ymlaen i ddewis y ffolder cyrchfan lle rydych chi am ddod o hyd i'r ffeiliau mewn ffenestr arall sydd wedi'i popio allan, gweler y screenshot:

6. Yn olaf, cliciwch OK i gau'r ffenestr, ac yn awr, mae'r ffeiliau wedi'u symud i ffolder arall a nodwyd gennych yn seiliedig ar enwau'r ffeiliau yn rhestr y daflen waith, gweler y screenshot:

Nodyn: Os ydych chi am gopïo'r ffeiliau i ffolder arall yn unig, ond cadwch y ffeiliau gwreiddiol, cymhwyswch y cod VBA isod:

Cod VBA: Copïwch ffeiliau o un ffolder i'r llall yn seiliedig ar restr yn Excel

Sub copyfiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = "Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = "Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
        End If
    Next
End Sub

 


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab

 

sylwadau (62)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma'r macro.Real braf o gymorth i mi. ond dwi angen rhywfaint o ddiweddariad macro.this a ddefnyddir i gopïo'r ffeiliau o ffolder sengl i ffolder arall. mae angen copïo ffeiliau o ffolder ac is-ffolder i ffolder arall.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Yn y ffolder ffynhonnell, hoffwn ei osod fel cysonyn o gell, er enghraifft dylid trin y llwybr a nodir mewn cell benodol, fel A1, fel y ffolder ffynhonnell. Sut i wneud hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Era exatamente isso que eu precisava!!!

Muito Obrigado!!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch !!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Você não tem noção de como me ajudou esse script... Muito bom!!! Obrigado!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi Guys,

Sut mae angen i mi newid '' If TypeName(xVal) = " Llinyn " A xVal <> " "Yna '' i symud ffeiliau yn seiliedig ar enw ffeil rhannol.


Diolch ymlaen llaw,
Cofion gorau, P
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wnaethoch chi erioed ddarganfod SUT i ddefnyddio ENW FFEIL RHANNOL? Dwi angen hynny hefyd...
Mewn geiriau eraill, os mai enw ffeil ar y rhestr ddalen Excel yw: OW4234TR_J19031.txt (Hoffwn iddo edrych ar y 5 nod olaf "19031" yn unig, sef Dyddiad Julian a symud ystod o ffeiliau... unrhyw beth ag a Julian Dyddiad 19031 hyd 19075.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Byddai angen yr enw ffeil rhannol vba addasu arnaf hefyd. Gawsoch chi erioed ymateb?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i ddiddordeb yn yr un ateb yn union! A gafodd unrhyw un yr ateb? Mae gen i restr P/N mewn colofn, ac rydw i eisiau darn o god sy'n edrych mewn ffolder rhiant sydd â sawl is-ffolder ar ôl ffeiliau gyda'r enw a nodir gan y rhestr, ond dim ond yn rhannol, oherwydd rydw i ddim yn gwybod yr estyniad ffeil ac mewn llawer o achosion ar gyfer un P/N yn y rhestr, mae gennyf sawl ffeil wedi'u gwahaniaethu gan fodolaeth ôl-ddodiad nad yw bob amser â'r un patrwm, megis xxxx_1, xxxx_2, xxx (1 ), xxxx [1], xxxx- (a ), xxxx_ (b) ...., ond mae angen i mi gopïo yn y ffolder cyrchfan, yr holl enghreifftiau o'r ffeiliau sy'n cynnwys yn eu henw y P/N.Please help i mi beidio â gwneud y swydd hon â llaw ar gyfer 34078 o ffeiliau y mae heddiw yn eu canfod mewn ffolder rhiant ac is-ffolderi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
sut i wneud i'r cod hwn gopïo ffeiliau o is-ffolderi?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Unrhyw awgrymiadau ar sut i addasu'r cod i ychwanegu cerdyn llydan? Mae gen i archif o gannoedd o ffeiliau PDF sy'n rhifau 10 digid a lefel adolygu (XXXXXXXXX_REVA). Gallaf allforio rhestr o enwau ffeiliau yn hawdd iawn o'n system ERP, ond mae'r adolygiad a'r estyniad ffeil ar goll o'r rhestr. Oes modd ychwanegu cardiau gwyllt i'r rhaglen i anwybyddu popeth OND y rhif 10 digid?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni allaf gael y naill fersiwn na'r llall i weithio yn Windows 10.


Arggg
Lleihawyd y sylw hwn gan y safonwr ar y wefan
en el codigo que copia ¿como puedo colorear el nombre de la lista que no encuentre?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gweithio'n wych - diolch! Fodd bynnag-->>>A ellir addasu hwn i ddefnyddio ENW FFEIL RHANNOL? Os felly, a allwch chi helpu i ddangos sut?
Mewn geiriau eraill, os mai enw ffeil ar restr ddalen Excel o enwau ffeiliau yw: OW4234TR_J19031.txt (Hoffwn iddo edrych ar y 5 nod olaf "19031" yn unig, sef Dyddiad Julian a symud ystod o ffeiliau... ( unrhyw beth gyda Dyddiad Julian o 19092 hyd at 19120) i mewn i'r ffolder Mawrth.. Y dasg gyffredinol yn y pen draw yw lleoli unrhyw ffeiliau sydd â dyddiadau Julian ar gyfer mis Mawrth a rhoi'r rheini yn y Ffolder Mawrth Cyllidol "06-Maw", Ebrill i mewn i'r Ffolder Ebrill "07-Ebrill" ac yn y blaen...felly gellir cynnal cysoniadau cyllidol fesul mis.. TIA am unrhyw help y gall unrhyw un ei gynnig i gyflymu'r broses hela a chasglu llafurus hon.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo ydych chi'n gwybod sut i chwilio ar yr is-ffolder hefyd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw un wedi darganfod sut i gopïo ffeiliau sydd wedi'u lleoli mewn is-ffolderi lluosog o'r prif gyfeiriadur, a'u pastio i gyfeiriadur ffolder arall? Hefyd, dim ond ar gyfer ffolderi ar y gyriant C y mae'r dull trosglwyddo hwn yn gweithio? Rwy'n ceisio copïo ffeiliau o'n cyfeiriadur sy'n cynnwys is-ffolderi lluosog lle mae sawl ffeil yn cael eu storio yn Microsoft Sharepoint, i ffolder ar fy yriant C.

Byddai unrhyw help yn cael ei werthfawrogi'n fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn !
Lleihawyd y sylw hwn gan y safonwr ar y wefan
buenas noches, alguien sabe que tengo que modificar para que me mueva carpedas y no solo archivos?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Unrhyw ddiweddariad o sut i chwilio ar ffolder ac is-ffolderi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Nasr,
I symud ffeiliau o ffolder ac is-ffolderi yn seiliedig ar werthoedd celloedd, cymhwyswch y cod VBA isod:
Ceisiwch, gobeithio y gall eich helpu!

Is-ffeiliau symud()
'Updateby Extendoffice
Dim xRg Fel Ystod, xCell Fel Ystod
Dim xSFileDlg Fel FileDialog, xDFileDlg Fel FileDialog
Dim xSPathStr Fel Amrywiad, xDPathStr Fel Amrywiad
Dim xVal Fel Llinyn
Dim fso Fel Gwrthrych, ffolder1 Fel Gwrthrych
' Ar Gwall Ailddechrau Nesaf
Gosod xRg = Application.InputBox ("Dewiswch enwau'r ffeiliau:"", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is
Gosod xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
xSFileDlg.Title = " Dewiswch y ffolder gwreiddiol:"
Os xSFileDlg.Show <> -1 Yna Ymadael Is
xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
Gosod xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
xDFileDlg.Title = " Dewiswch y ffolder cyrchfan:"
Os xDFileDlg.Show <> -1 Yna Ymadael Is
xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
Ffoniwch sMoveFiles(xRg, xSPathStr, xDPathStr)
Is-End

Is-Ffeiliau sMove(xRg Fel Ystod, xSPathStr Fel Amrywiad, xDPathStr Fel Amrywiad)
Dim xCell Fel Ystod
Dim xVal Fel Llinyn
Dim xFfolder Fel Gwrthrych
Dim fso Fel Gwrthrych
Dim xF Fel Gwrthrych
Dim xStr Fel Llinyn
Dim xFS Fel Gwrthrych
Dim xI Fel Cyfanrif
Ar Ail-ddechrau Gwall Nesaf
Os yw Dir(xDPathStr, vbDirectory) = "" Yna
MkDir (xDPathStr)
Gorffennwch Os
Ar gyfer xI = 1 I xRg.Count
Gosod xCell = xRg.Item(xI)
xVal = xCell.Value
Os TypeName(xVal) = "Llinynnol" Ac Ddim (xVal = "") Yna
Ar Gwall Ewch I E1
Os yw Dir(xSPathStr & xVal, 16) <> Yn Wag Yna
FfeilCopy xSPathStr & xVal, xDPathStr & xVal
Lladd xSPathStr&xVal
Gorffennwch Os
Gorffennwch Os
E1:
Nesaf xI
Ar Ail-ddechrau Gwall Nesaf
Gosod fso = CreateObject ("Scripting.FileSystemObject")
Gosod xFS = fso.GetFolder(xSPathStr)
Ar gyfer Pob xF Mewn xFS.SubFolders
xStr = xDPathStr & " \" & xF.Name ' Amnewid(xF.ShortPath, xSPathStr, xDPathStr)
Ffoniwch sMoveFiles(xRg, xF.ShortPath a "\", xStr &"\")
Os (CreateObject ("scripting.FileSystemObject").GetFolder(xStr).Files.Count = 0) _
A (CreateObject("scripting.FileSystemObject").GetFolder(xStr).SubFolders.Count = 0) Yna
RmDir xStr
Gorffennwch Os
Digwyddiadau
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hynny'n berffaith diolch
ond beth os oeddwn i eisiau copïo ffeiliau heb eu symud o is-ffolderi yn unig heb fod angen creu is-ffolderi yn y ffolder cyrchfan
ie
ffolder ffynhonnell X: \\ rhiant
y tu mewn i'r rhiant mae is-ffolderi prawf1 (ffeil A), test2 (ffeil B) a test3 (ffeil C)
yna ffolder cyrchfan yw "Y: \ cyrchfan" gyda phob un o'r 3 ffeil A, B, C heb yr is-ffolderi

Diolch yn fawr iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Nasr, a wnaethoch chi ddarganfod sut i wneud hyn? Rwy’n edrych ar angen tebyg ar hyn o bryd.

Copïo detholiad o ffeiliau o amrywiol is-ffolderi i un ffolder
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Mike
Fe wnes i fath o OND yn anuniongyrchol, felly beth wnes i yw addasu'r cod i gopïo'r ffeiliau nid eu symud gyda'r is-ffolder
yna gyda ffeil CMD symudwch y ffeil o is-ffolderi i'r prif ffolder ac yna dilëwch yr is-ffolder gwag
dyma beth wnes i

Is-Ffeiliau Copi()
'Updateby Extendoffice
Dim xRg Fel Ystod, xCell Fel Ystod
Dim xSFileDlg Fel FileDialog, xDFileDlg Fel FileDialog
Dim xSPathStr Fel Amrywiad, xDPathStr Fel Amrywiad
Dim xVal Fel Llinyn
Dim fso Fel Gwrthrych, ffolder1 Fel Gwrthrych
' Ar Gwall Ailddechrau Nesaf
Gosod xRg = Application.InputBox ("Dewiswch enwau'r ffeiliau:"", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is
Gosod xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
xSFileDlg.Title = " Dewiswch y ffolder gwreiddiol:"
Os xSFileDlg.Show <> -1 Yna Ymadael Is
xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
Gosod xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
xDFileDlg.Title = " Dewiswch y ffolder cyrchfan:"
Os xDFileDlg.Show <> -1 Yna Ymadael Is
xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
Ffoniwch sCopyFiles(xRg, xSPathStr, xDPathStr)
Is-End

Is-Ffeiliau Copi(xRg Fel Ystod, xSPathStr Fel Amrywiad, xDPathStr Fel Amrywiad)
Dim xCell Fel Ystod
Dim xVal Fel Llinyn
Dim xFfolder Fel Gwrthrych
Dim fso Fel Gwrthrych
Dim xF Fel Gwrthrych
Dim xStr Fel Llinyn
Dim xFS Fel Gwrthrych
Dim xI Fel Cyfanrif
Ar Ail-ddechrau Gwall Nesaf
Os yw Dir(xDPathStr, vbDirectory) = "" Yna
MkDir (xDPathStr)
Gorffennwch Os
Ar gyfer xI = 1 I xRg.Count
Gosod xCell = xRg.Item(xI)
xVal = xCell.Value
Os TypeName(xVal) = "Llinynnol" Ac Ddim (xVal = "") Yna
Ar Gwall Ewch I E1
Os yw Dir(xSPathStr & xVal, 16) <> Yn Wag Yna
FfeilCopy xSPathStr & xVal, xDPathStr & xVal
Gorffennwch Os
Gorffennwch Os
E1:
Nesaf xI
Ar Ail-ddechrau Gwall Nesaf
Gosod fso = CreateObject ("Scripting.FileSystemObject")
Gosod xFS = fso.GetFolder(xSPathStr)
Ar gyfer Pob xF Mewn xFS.SubFolders
xStr = xDPathStr & " \" & xF.Name ' Amnewid(xF.ShortPath, xSPathStr, xDPathStr)
Ffoniwch sCopyFiles(xRg, xF.ShortPath &"\", xStr &"\")
Os (CreateObject ("scripting.FileSystemObject").GetFolder(xStr).Files.Count = 0) _
A (CreateObject("scripting.FileSystemObject").GetFolder(xStr).SubFolders.Count = 0) Yna
RmDir xStr
Gorffennwch Os
Digwyddiadau
Is-End



yna copïwch y llinellau canlynol i lyfr nodiadau newydd a'i gadw fel cmd ffoniwch beth bynnag

ar gyfer /r %%a IN (*.*) gwnewch (
symud /y "%%a" "%cd%"
)
am /f " delims = " %%d yn ('dir /s /b /ad ^| sort /r') do rd "%%d"



gwnewch yn siŵr eich bod chi'n copïo'r cod fel y mae 4 llinell
gobeithio bod help
Lleihawyd y sylw hwn gan y safonwr ar y wefan
gwnewch yn siŵr eich bod chi'n rhoi'r ffeil cmd yn yr un ffolder ag y byddwch chi'n copïo'r ffeiliau a'r is-ffolderi, yna cliciwch arno ddwywaith
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallwch gael yr un canlyniad gan ddefnyddio'r VBA yn unig os ydych yn ychwanegu ' cyn y & " \" &xF.Name yn y llinell isod.
Mae hwn yn dal i gopïo o is-ffolderi ond yn copïo i ffolder un lefel.

xStr = xDPathStr & " \" & xF.Name ' Amnewid(xF.ShortPath, xSPathStr, xDPathStr)
Yn dod
xStr = xDPathStr ' & " \" &xF.Name ' Amnewid(xF.ShortPath, xSPathStr, xDPathStr)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo skyyang, rwyf am gopïo neu symud ffeiliau (.jpg, .png) unrhyw fformat o ffolder a'i is-ffolderi. Mae'r sgript uchod yn copïo'r ffolder gyfan sy'n cynnwys y ffeil cyfatebol
Diolch a Cofion,
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, nid wyf yn arbenigwr yn VBA ond mae angen eich Modiwl arnaf a gwnes i wrth i chi gyfarwyddo ond ni chopïwyd dim o'r ffolder ffynhonnell i'r ffolder newydd. ac ni ddangosir gwall
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A beth sy'n digwydd os nad yw'r ffeil yn bodoli yn y ffolder tarddiad?
mae'r cod yn torri

Bydd gan y cod linell i neidio i gyfeiriad arall os nad yw'n bodoli
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os nad yw'r cyfeirnod yn bodoli bydd y cod yn torri
pa linell a gefais i'r cod wneud naid drwy'r cyfeiriad nesaf yn ddi-stop
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut y gellid addasu hyn i'w ludo i restr o lwybrau ffeil lluosog yn lle un llwybr ar y tro?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Sabin,
Ydych chi am gopïo a gludo'r ffeiliau sydd o ffolderi gwreiddiol lluosog yn lle un ffolder yn unig?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
os gwelwch yn dda
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir