in reply to Server access denied when checking for files
#!/usr/bin/perl $dirtoget="\\\\Server\\Bankpro"; #directory to +read folders opendir(IMD, $dirtoget) || die("Cannot open directory"); #o +pen directory @thefiles= readdir(IMD) or die "can't readdir: $!"; #st +ore all files and folders in directory into an array closedir(IMD); #close directory open (filenames, "dissmissed2.txt") || die ("Could not open file. $!") +; #open list of file names $text = <filenames>; #read in one line +from txt file $defaultdir = "\\\\Server\\Bankpro"; # Directo +ry containing original folders $destinationdir = "\\\\Server\\BPdismis"; # Direct +ory to copy folders to foreach $f (@thefiles) #for each file i +n the directory { unless ( ($f eq ".") || ($f eq "..") ) { while ($text){ #whi +le there is a line of text $text =~ s/\s+$//; #s +trip off whitespace, newline and tabs system qq(move /y "$defaultdir/$text" "$destinationdir") or di +e "can't move the file: $!"; #move files to diffrent directory $text = <filenames>; + #read in next line from file } } } close (filenames); #close list of files
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: Server access denied when checking for files
by chas (Priest) on Apr 26, 2005 at 15:12 UTC |