Just nu i M3-nätverket
Jump to content

Kontrollera mapp


Warwolf

Recommended Posts

Hej,

jag undrar hur man kontrollerar att en mapp finns. Användaren matar in en sökväg och jag vill kontrollera att den stämmer, dvs att alla mappar existerar.

 

Link to comment
Share on other sites

Olle Nyrén

[color="#0000ff"]Set[/color] fso = [color="#0000ff"]CreateObject[/color]([GRÅ]"Scripting.FileSystemObject"[/GRÅ])
[color="#0000ff"]If[/color] fso.FolderExists([GRÅ]"C:\katalog"[/GRÅ]) [color="#0000ff"]Then[/color]
...

mvh

Olle

 

Link to comment
Share on other sites

ZilverZtream

Simpelt sätt att göra det på:

 

[color="#0000ff"]If[/color] Dir([GRÅ]"C:\ANVÄNDARENS\SÖKVÄG"[/GRÅ]) <> 0 [color="#0000ff"]Then[/color] [color="#0000ff"]MsgBox[/color] [GRÅ]"Sökvägen existerar"[/GRÅ]

 

Link to comment
Share on other sites

Har testat bådas alternativ men får inget att fungera.

 

så här har jag gjort:

[color="#0000ff"]Public[/color] [color="#0000ff"]Log[/color]_path As [color="#0000ff"]String[/color]

[color="#0000ff"]Sub[/color] Main

[color="#0000ff"]Log[/color]_path = [color="#0000ff"]InputBox[/color]$([i]...[/i])

[color="#0000ff"]If[/color] Dir([color="#0000ff"]Log[/color]_path) <> 0 [color="#0000ff"]Then[/color]
[i]...[/i]
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]

...

 

När jag kör programmet så får jag felet Type Mismatch vid villkoret.

 

Gör jag något fel eller vad.

 

Link to comment
Share on other sites

ZilverZtream

Ber om ursäkt, var lite trött när jag skrev lösningen åt dig igår kväll. :)

 

 

[color="#0000ff"]Public[/color] [color="#0000ff"]Log[/color]_path As [color="#0000ff"]String[/color]

[color="#0000ff"]Sub[/color] Main

[color="#0000ff"]Log[/color]_path = [color="#0000ff"]InputBox[/color]$(...)

[color="#0000ff"]If[/color] [color="#0000ff"]Len[/color](Dir([color="#0000ff"]Log[/color]_path)) <> 0 [color="#0000ff"]Then[/color]
...
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]

...

 

Då fungerar det utmärkt.

Du kan nog även köra med

 

[color="#0000ff"]If[/color] [color="#0000ff"]Not[/color] Dir([color="#0000ff"]Log[/color]_path) = [GRÅ]""[/GRÅ] [color="#0000ff"]Then[/color]

 

MVH

ZilverZtream

 

Link to comment
Share on other sites

Tack så mycket för att du försöker.

 

Tyvärr så får jag det inte att fungera.

 

Kan sägas att jag programmerar script till ett program, så kanske dessa funktioner inte fungerar för mig därför. I min dokumentation så verkar det inte som om Dir har något returvärde, kanske därför det spökar.

 

Link to comment
Share on other sites

ZilverZtream

hmmm, nej, skriptar du så fungerar inte DIR.

 

Men FSO borde fungera. (det Olle Nyrén visade tidigare).

 

[color="#0000ff"]Dim[/color] fso, strFolder

[color="#0000ff"]Set[/color] fso = [color="#0000ff"]CreateObject[/color]([GRÅ]"Scripting.FileSystemObject"[/GRÅ])
strFolder = [GRÅ]"C:\"[/GRÅ]

[color="#0000ff"]If[/color] [color="#0000ff"]Not[/color] (fso.FolderExists(strFolder)) [color="#0000ff"]Then[/color]
      [color="#0000ff"]MsgBox[/color] [GRÅ]"Foldern Finns Ej!"[/GRÅ]
      [color="#0000ff"]Set[/color] fso = [color="#0000ff"]Nothing[/color]
      [color="#0000ff"]Exit[/color] [color="#0000ff"]Function[/color]
[color="#0000ff"]End[/color] [color="#0000ff"]If[/color]

 

Hoppas det fungerar, ananrs får jag tänka ut en annan lösning.

 

 

/

ZilverZtream

 

Link to comment
Share on other sites

Nope, fungerade inte heller.

Programmet verkar inte känna igen

fso.FolderExists()

 

Skall i ärlighetens namn säga att jag inte kan särskillt mycket om VB, har bara hållit på i tre veckor.

Vet inte om det är någon speciell script-version av VB. Det jag skriver är script/macron till programmet Audio Precision 2.24.

 

Mycket tacksam för att du försöker hjälpa mig.

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...