Sign in to follow this  
Followers 0
RenegadeXO

Create folder from filename and copy file to the folder

6 posts in this topic

FIrst of all, I am new to AutoIt and scripting in general. I can read some code but not and expert by know means. What I am needing, hopefully is simple.

Scenario: I have two servers (old and new Listserv servers). On the old server I have several files that will need to be copied to the new server. The problem is the new server file structure is slightly different. Each file, on the old server, will need a Directory with the same name as the file on the new server. Example...(abc123.list (old server file) ---> ABC123\abc123.list on the new server. Hopefully there is an easy way to do this. If you notice, the directory name will need to also drop the extension.

Share this post


Link to post
Share on other sites



Something like this:

$sSourceFilename = "abc123.list"
$sTargetDrive = "C:"
$aTargetDirectory = StringSplit($sSourceFilename, ".")
DirCreate($sTargetDrive & "" & $aTargetDirectory[1])
FileCopy($sSourceFilename, $sTargetDrive & "" & $aTargetDirectory[1] & "")
What's missing is some error checking code.

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

I just threw this together:

To use it just save the script to the directory where the files are and run it.

#include <File.au3>

$Files = _FileListToArray(@ScriptDir, "*", 1)

For $I = 1 To $Files[0]

$Name = StringLeft($Files[$I], StringInStr($Files[$I], ".")-1)
If Not FileExists(@ScriptDir & "" & $Name) Then DirCreate(@ScriptDir & "" & $Name)

FileCopy(@ScriptDir & "" & $Files[$I], @ScriptDir & "" & $Name)

Next

MsgBox(0, "", "Done!")

It copies the file opposed to moving them just in-case something goes wrong and it also lacks recursion (but you didn't mention that so...)

Edited by Marlo

Click here for the best AutoIt help possible.Currently Working on: Autoit RAT

Share this post


Link to post
Share on other sites

Thank you both for the response, I will try this today to see which works best for me. I will also post later the results. Love this forum!

Share this post


Link to post
Share on other sites

Glad to be of service :D


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

#6 ·  Posted (edited)

Here is my take on the output(s) you provided.

Local $sSourceFilePath = @ScriptDir & 'abc123.list'
Local $sDestinationFilePath = 'C:'

_FileCopyToFolder($sSourceFilePath, $sDestinationFilePath, 1 + 8) ; See FileCopy parameters.

Func _FileCopyToFolder($sSource, $sDestination, $iFlag = 0)
    Local $sFilePath = StringTrimLeft($sSource, StringInStr($sSource, '', 2, -1))
    $sDestination = StringRegExpReplace($sDestination, '[/]*$', '') ; Remove trailing slashes.
    $sDestination = $sDestination & '' & StringUpper(StringLeft($sFilePath, StringInStr($sFilePath, '.', 2, -1) - 1)) & '' & $sFilePath
    MsgBox(4096, '', $sDestination)
;~  Return FileCopy($sSource, $sDestination, $iFlag)
EndFunc   ;==>_FileCopyToFolder
Edited by guinness

_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0