Force a file creation in a given path ...

[fweil]

When creating a new file, it is necessary to check if the path to the desired file exists.

This is not a huge work but can overdo your code and mind ..

Here is a code I use :

Code: Select all

;
; Create a file at a given path location creating sub-directories if necessary
;
Procedure DoCreateFile(n.l, FileName.s)
  PathPart.s = ""
  FilePart.s = GetFilePart(FileName)
  If GetPathPart(FileName) <> ""
      i = 1
      Repeat
        Node.s = StringField(FileName, i, "\")
        If Node = FilePart
            Break
        EndIf
        PathPart + Node + "\"
        If FileSize(PathPart) = -2
          Else
            CreateDirectory(PathPart)
        EndIf
        i + 1
      Until Node = ""
  EndIf
  ProcedureReturn CreateFile(n, FileName)
EndProcedure

;
; Test
;
  If DoCreateFile(0, "toto\dudule\machin.txt")
      CloseFile(0)
  EndIf

  If DoCreateFile(0, "machin.txt")
      CloseFile(0)
  EndIf
End

[blueznl]

a variant would be to split it into two functions...

IsFolder() would test if a path is valid, and...

CreateFolder() would create the folder structure

actually creating a file i would do directly, with OpenFile or whatever

[PolyVector]

very usefull

[gnozal]

MakeSureDirectoryPathExists (Win32.hlp)

The MakeSureDirectoryPathExists function creates all the directories in the specified DirPath.

BOOL MakeSureDirectoryPathExists(
IN LPSTR DirPath
);

Parameters

DirPath
A pointer to an ASCII string that contains a valid path name.

Return Values

If the function succeeds, the return value is TRUE.
If the function fails, then the return value is FALSE. To retrieve extended error information, call GetLastError.

Remarks

The DirPath is parsed and each directory, beginning at the root, is created, if it does not already exist. If only some of the directories are created, the function will return FALSE.

[WilliamL]

Hmm, old thread...

I need to check to see if the folder exists - e.g. IsFolder(folderpath$)

fweil appears to be creating a file with the 'folderpath$' and seeing if it is successful. If you create a 'dummy' file in the folder then I suppose you would have to 'Delete' the dummy file.

Any ideas for a IsFolder() checking that is not API?

[Shield]

FileSize() Check the help.

[WilliamL]

Yes, yes ,yes

It just occurred to me that FileSize will return a folder search

Code: Select all

foldername$=RsrcPath+foldername$+"/"
If FileSize(foldername$)=-1: MessageRequester("Folder missing!",foldername$) : EndIf

and I get -2 if the folder is there

so this seems to work... dumb question...