Jump to content
Sign in to follow this  
RenegadeXO

Create folder from filename and copy file to the folder

Recommended Posts

RenegadeXO

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
water

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 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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
Marlo

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
RenegadeXO

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
water

Glad to be of service :D


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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
guinness

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

UDF List:

 
_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_ArrayFilter/_ArrayReduce_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: 22/04/2018

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  

×