New topic: Outputfile
<http://forums.realsoftware.com/viewtopic.php?t=32444> Page 1 of 1 [ 1 post ] Previous topic | Next topic Author Message Chalky94 Post subject: OutputfilePosted: Wed Feb 10, 2010 4:13 pm Joined: Sat Jan 16, 2010 5:39 pm Posts: 16 Hello, Please can anyone help, basically the app i made is meant to rar .nzb's, it works if the .nzb is in the same folder as the app but if the .nzb is on the desktop, for example, it won't create the rar. Any suggestions? Code:Dim F As FolderItem Dim nzbFile as New FileType Dim shWinRARCommand As New Shell Dim c as new Clipboard Dim TheOutPutFile as String nzbFile.Name = ".NZB File/NZB" nzbFile.MacType = "NZB" nzbFile.Extensions = "nzb" If Me.Caption = "Import NZB!" Then F = GetOpenFolderItem(nzbFile) If F <> Nil and F.Exists Then txtTheFile.Text = F.DisplayName End If If txtTheFile.text <> "" then Me.Caption = "Create rar!" Else Me.Caption = "Import NZB!" End if If txtThePassword.text = "" then me.Caption = "Create rar!" else MsgBox("Error - Please Enter A Password!") end if ElseIf Me.Caption = "Create rar!" Then If txtThePassword.Text <> "" Then shWinRARCommand.Execute("Rar" + " a -m5 -ed -p" + txtThePassword.Text + " " + "[www.united-forums.co.uk]-" + ReplaceAll(txtTheFile.Text, " ", "") + ".rar " + """" + txtTheFile.Text + """") c.text=txtThePassword.text c.close else MsgBox("Error - Please Enter A Password!") End if End If me.caption = "Import NZB!" txtTheFile.text = "" txtThePassword.text = "" Top Display posts from previous: All posts1 day7 days2 weeks1 month3 months6 months1 year Sort by AuthorPost timeSubject AscendingDescending Page 1 of 1 [ 1 post ] -- Over 1500 classes with 29000 functions in one REALbasic plug-in collection. The Monkeybread Software Realbasic Plugin v9.3. http://www.monkeybreadsoftware.de/realbasic/plugins.shtml [email protected]
