Moving a List of Files from One Dir to Another with Wildcards
.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box;
}
I actually have a solution I have figured out but I couldn't find what I was after a quick look around, so thought I would share and hopefully get some suggestions for improvements or any extra useful features you can think of for this sorta thing to make it more powerful/user friendly.
I got the wildcards to work by simply putting an asterisk in the filename I was searching for e.g. "hell*" would find "hello.pdf" and copy it into the new Dir :D
One issue I encountered; doesn't seem to like our shared network drives at work, hypothetically there could be some sort of permissions going on in the bg to prevent scripts like this from causing any damage.
Sub moveFilesList()
Dim searchRange As Range
Dim cell As Range
Dim fn As String
Dim myDir As String
Dim newFolder As String
Dim continue As Long
Dim LR As Long
MsgBox ("You have initiated the File Moving Macro!")
myDir = InputBox("Enter the filepath for your Source Directory", "Input DIR")
newFolder = InputBox("Enter the filepath for your Destination Directory", "Output DIR")
continue = MsgBox("All cells in Column A will be searched for!" & vbNewLine & "Continue?", vbOKCancel)
If continue = 2 Then Exit Sub
With ActiveSheet
LR = .Cells(.Rows.Count, "A").End(xlUp).Row
Set searchRange = .Range("A1:A" & LR)
End With
For Each cell In searchRange
fn = Dir(myDir & "" & cell)
If fn <> "" Then FileCopy myDir & "" & fn, newFolder & "" & fn
Next cell
End Sub
excel vba excel-vba
asked Nov 16 '18 at 11:43
HotSauceCoconutsHotSauceCoconuts
7010
add a comment |
I actually have a solution I have figured out but I couldn't find what I was after a quick look around, so thought I would share and hopefully get some suggestions for improvements or any extra useful features you can think of for this sorta thing to make it more powerful/user friendly.
I got the wildcards to work by simply putting an asterisk in the filename I was searching for e.g. "hell*" would find "hello.pdf" and copy it into the new Dir :D
One issue I encountered; doesn't seem to like our shared network drives at work, hypothetically there could be some sort of permissions going on in the bg to prevent scripts like this from causing any damage.
Sub moveFilesList()
Dim searchRange As Range
Dim cell As Range
Dim fn As String
Dim myDir As String
Dim newFolder As String
Dim continue As Long
Dim LR As Long
MsgBox ("You have initiated the File Moving Macro!")
myDir = InputBox("Enter the filepath for your Source Directory", "Input DIR")
newFolder = InputBox("Enter the filepath for your Destination Directory", "Output DIR")
continue = MsgBox("All cells in Column A will be searched for!" & vbNewLine & "Continue?", vbOKCancel)
If continue = 2 Then Exit Sub
With ActiveSheet
LR = .Cells(.Rows.Count, "A").End(xlUp).Row
Set searchRange = .Range("A1:A" & LR)
End With
For Each cell In searchRange
fn = Dir(myDir & "" & cell)
If fn <> "" Then FileCopy myDir & "" & fn, newFolder & "" & fn
Next cell
End Sub
excel vba excel-vba
asked Nov 16 '18 at 11:43
HotSauceCoconutsHotSauceCoconuts
7010
add a comment |
I actually have a solution I have figured out but I couldn't find what I was after a quick look around, so thought I would share and hopefully get some suggestions for improvements or any extra useful features you can think of for this sorta thing to make it more powerful/user friendly.
I got the wildcards to work by simply putting an asterisk in the filename I was searching for e.g. "hell*" would find "hello.pdf" and copy it into the new Dir :D
One issue I encountered; doesn't seem to like our shared network drives at work, hypothetically there could be some sort of permissions going on in the bg to prevent scripts like this from causing any damage.
Sub moveFilesList()
Dim searchRange As Range
Dim cell As Range
Dim fn As String
Dim myDir As String
Dim newFolder As String
Dim continue As Long
Dim LR As Long
MsgBox ("You have initiated the File Moving Macro!")
myDir = InputBox("Enter the filepath for your Source Directory", "Input DIR")
newFolder = InputBox("Enter the filepath for your Destination Directory", "Output DIR")
continue = MsgBox("All cells in Column A will be searched for!" & vbNewLine & "Continue?", vbOKCancel)
If continue = 2 Then Exit Sub
With ActiveSheet
LR = .Cells(.Rows.Count, "A").End(xlUp).Row
Set searchRange = .Range("A1:A" & LR)
End With
For Each cell In searchRange
fn = Dir(myDir & "" & cell)
If fn <> "" Then FileCopy myDir & "" & fn, newFolder & "" & fn
Next cell
End Sub
excel vba excel-vba
asked Nov 16 '18 at 11:43
HotSauceCoconutsHotSauceCoconuts
7010
I actually have a solution I have figured out but I couldn't find what I was after a quick look around, so thought I would share and hopefully get some suggestions for improvements or any extra useful features you can think of for this sorta thing to make it more powerful/user friendly.
I got the wildcards to work by simply putting an asterisk in the filename I was searching for e.g. "hell*" would find "hello.pdf" and copy it into the new Dir :D
One issue I encountered; doesn't seem to like our shared network drives at work, hypothetically there could be some sort of permissions going on in the bg to prevent scripts like this from causing any damage.
Sub moveFilesList()
Dim searchRange As Range
Dim cell As Range
Dim fn As String
Dim myDir As String
Dim newFolder As String
Dim continue As Long
Dim LR As Long
MsgBox ("You have initiated the File Moving Macro!")
myDir = InputBox("Enter the filepath for your Source Directory", "Input DIR")
newFolder = InputBox("Enter the filepath for your Destination Directory", "Output DIR")
continue = MsgBox("All cells in Column A will be searched for!" & vbNewLine & "Continue?", vbOKCancel)
If continue = 2 Then Exit Sub
With ActiveSheet
LR = .Cells(.Rows.Count, "A").End(xlUp).Row
Set searchRange = .Range("A1:A" & LR)
End With
For Each cell In searchRange
fn = Dir(myDir & "" & cell)
If fn <> "" Then FileCopy myDir & "" & fn, newFolder & "" & fn
Next cell
End Sub
excel vba excel-vba
excel vba excel-vba
asked Nov 16 '18 at 11:43
HotSauceCoconutsHotSauceCoconuts
7010
asked Nov 16 '18 at 11:43
HotSauceCoconutsHotSauceCoconuts
7010
asked Nov 16 '18 at 11:43
HotSauceCoconutsHotSauceCoconuts
7010
asked Nov 16 '18 at 11:43
HotSauceCoconutsHotSauceCoconuts
7010
asked Nov 16 '18 at 11:43
HotSauceCoconutsHotSauceCoconuts
7010
7010
add a comment |
add a comment |
0
active
oldest
votes
Your Answer
StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");
StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);
StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});
function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});
}
});
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53337199%2fmoving-a-list-of-files-from-one-dir-to-another-with-wildcards%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
0
active
oldest
votes
0
active
oldest
votes
active
oldest
votes
active
oldest
votes
Thanks for contributing an answer to Stack Overflow!
- Please be sure to answer the question. Provide details and share your research!
But avoid …
- Asking for help, clarification, or responding to other answers.
- Making statements based on opinion; back them up with references or personal experience.
To learn more, see our tips on writing great answers.
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53337199%2fmoving-a-list-of-files-from-one-dir-to-another-with-wildcards%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
