Fragen zu Grenzen von PB und Win:
Wie lange darf ein Dateiname sein? Darf er auch über 255 Zeichen sein? Unterstützt dies PB (4) ?
Ich habe es nicht hinbekommen eine Datei zu erstellen, die mehr wie 255 Zeichen hat. Dafür hab ich mir auf die schnelle folgenden Code geschrieben:
Code: Alles auswählen
#sw_name="FileGen"
laenge=Val(InputRequester(#sw_name, "Länge des zu generierenden Dateinamens (Min 10)", "255"))
laenge_ext=Val(InputRequester(#sw_name, "Länge der Datei-Extention (Min 1)", "3"))
size=Val(InputRequester(#sw_name, "Gewünschte Größe der Datei in B (Min 1)", "1"))
If laenge>=10 And laenge_ext>=1 And size>=1
targetdir$=PathRequester("Wohin soll die Datei gespeichert werden?","d:\")
If targetdir$
targetname$="TESTFILE_" : targetextention$=""
For c=1 To laenge-9
targetname$+Chr(65+Random(25))
Next c
For c=1 To laenge_ext
targetextention$+Chr(65+Random(25))
Next c
hFile = CreateFile(#PB_Any, targetdir$+targetname$+"."+targetextention$)
Debug targetdir$
Debug targetname$
Debug targetextention$
If hFile
For c=1 To SIZE
WriteByte(hFile, 31+Random(200))
Next c
CloseFile(hFile)
MessageRequester(#sw_name, "Datei erfolgreich erstellt",0)
Else
MessageRequester(#sw_name, "Konnte Zieldatei nicht erstellen", 0)
EndIf
Else
MessageRequester(#sw_name, "Pfadangabe fehlerhaft", 0)
EndIf
Else
MessageRequester(#sw_name, "Angaben fehlerhaft", 0)
EndIf
