MakeDirectory()

[NubeCheCorre]

Hi,
I'd like to know if there is a way to create a directory using the function: MakeDirectory() with an icon attached to it so that the directory is visible and not "ghosted".. I am using Hollywood 6.0
Thanks

[amyren]

This should work. (I asume that that you are compilng for Amiga systems here)
You will need to have a standard folder icon file, eg. named folder.info, and put it into a folder named icons in the same folder as your .hwp file before compiling.
Note that the first line is a preprocessor command and should be placed at the beginning of your script.

Code: Select all

@DIRECTORY 1, "icons" ;include the files from the icons folder into your application
MakeDirectory("Test") ; creates the folder
CopyFile(GetDirectoryEntry(1, "folder.info"), "" ,"Test.info") ; copy and rename the folder.info file into desired location.

you can also use variables in there if you prefer:

Code: Select all

@DIRECTORY 1, "icons" 
myfoldername$ = "Test"
foldericonname$ = myfoldername$..".info"
MakeDirectory(myfoldername$) 
CopyFile(GetDirectoryEntry(1, "folder.info"), "" ,foldericonname$) 

Alternatively, if the system you are compiling for supports png icons, you could just have any .png image file and rename to an .info file.

[NubeCheCorre]

Thanks for the informations and sorry for my late reply but unfortunatly these funtions are not available under Hollywood 6.0
Thanks,

[amyren]

Thanks for the informations and sorry for my late reply but unfortunatly these funtions are not available under Hollywood 6.0
Thanks,

I see, @DIRECTORY did come with 8.0

But @FILE should also be able to link a file into the application, but I did not get that to work with CopyFile

Unless there is a way around that, you might have to have that folder.info file included with your application, and just use it like this.

Code: Select all

MakeDirectory("Test") ; creates the folder
CopyFile("folder.info"), "" ,"Test.info")

[jPV]

This is generally a bit problematic, because if you link your own drawer icons, then they won't be consistent with other icons in each system...

To preserve consistency on users' system, you could try to copy a drawer icon from system's deficons, but that location might be different on different platforms/configs...

[jPV]

I guess something like this should work in the most cases:

Code: Select all

@FILE 1, "my_drawer.info"

Function p_MakeDir(path$, newdir$)
    newdir$ = TrimStr(newdir$, "/", True)
    Local fullpath$ = FullPath(path$, newdir$)
    If (HaveVolume(path$) Or Exists(path$)) And Not Exists(fullpath$)
        MakeDirectory(fullpath$)
        If Exists("ENVARC:sys/def_drawer.info")
            CopyFile("ENVARC:sys/def_drawer.info", path$, newdir$ .. ".info")
        ElseIf Exists("SYS:Prefs/Presets/Deficons/def_drawer.info")
            CopyFile("SYS:Prefs/Presets/Deficons/def_drawer.info", path$, newdir$ .. ".info")
        Else
            StringToFile(ReadString(1), fullpath$ .. ".info")
        EndIf
    EndIf
EndFunction

p_MakeDir("RAM:", "New Directory")

[amyren]

That seemes to work. I only tested on windows though.

Interesting that StringToFile does work like that, copying the content of the info file and creates a new file with the same content. I though that stringtofile only worked with textfiles, but apearently it does more than that.

But why will not copyfile work with the linked file as source?

[jPV]

Interesting that StringToFile does work like that, copying the content of the info file and creates a new file with the same content. I though that stringtofile only worked with textfiles, but apearently it does more than that.

Strings can also store binary data in Hollywood, there aren't any other data types for that.

And btw, maybe it would be better to use this with later Hollywoods (to avoid any problems with UTF-8 support):
StringToFile(ReadBytes(1), fullpath$ .. ".info")

But IIRC ReadBytes wasn't available in 6.0. And it might have been that in 6.0 ReadString needed the length argument too... can't remember for sure, but if it's the case, then something like this for it:
StringToFile(ReadString(1, FileLength(1)), fullpath$ .. ".info")

But why will not copyfile work with the linked file as source?

It only handles files on the filesystem, not open files. Linked file acts as an opened file and you can't refer it directly but only read from it by its handle (ID).

[NubeCheCorre]

Thanks, it works!