Win7 64Bit - Dateitest mit -d verursacht Fehler (Windows)

[thread]18781[/thread]

Win7 64Bit - Dateitest mit -d verursacht Fehler

Tags: windows Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+14 replies
bianca

2013-11-30 08:54

User since
2009-09-13
7016 Artikel
BenutzerIn

Ein Skript klappert alle 26 möglichen Laufwerksbuchstaben ab, um das Laufwerk mit eingelegter SD Karte zu finden.
Die Abfrage pro Laufwerk lautet -d "$lw:/dcim/100image"

Auf Win7 32 Bit ist das kein Problem.
Allerdings auf Win7 64 Bit erhalte ich für jede nicht erfolgreiche Abfrage das angehängte Fehler Popup.

Weiß jemand, wie ich auf Existenz eines Laufwerks prüfen kann, ohne eine Fehlermeldung zu provozieren?
Anhänge

image/jpeg
452 x 170

perl_win64_fehler.jpg

10 print "Hallo"
20 goto 10
- +8 replies
- GwenDragon
  
  2013-11-30 09:41
  
  User since
  2005-01-17
  14816 Artikel
  Admin1
  
  Ach so, du machst einen Dateitest mit -d.
  Das wird immer einen Dateizugriff erzeugen.
  
  Es gibt ein paar Perl-Module, die Arten und Vorhandensein von Laufwerken abfragen.
  
  http://www.roth.net/perl/adminmisc/#GetDriveType
  https://metacpan.org/pod/Win32API::Resources#Win32...
  Win32::DriveInfo siehe DrivesInUse() und IsReady()
  
  Mit Device::USB könntest du nur die USB-Devices abfragen.
  Last edited: 2013-11-30 10:02:45 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - bianca
    
    2013-12-03 10:38
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2013-11-30T08:41:22 GwenDragon
    Win32::DriveInfo
    
    Verursacht leider den selben Fehler wie bei -d
    10 print "Hallo"
    20 goto 10
  - bianca
    
    2013-12-03 10:41
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2013-11-30T08:41:22 GwenDragon
    Mit Device::USB könntest du nur die USB-Devices abfragen.
    
    Dafür muss ich das Device aber kennen, wenn ich das richtig sehe.
    Ich möchte aber per Script das richtige erstmal finden.
    10 print "Hallo"
    20 goto 10
  - bianca
    
    2013-12-03 10:44
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2013-11-30T08:41:22 GwenDragon
    http://www.roth.net/perl/adminmisc/#GetDriveType
    
    Scheint von 2003 zu sein :( und beide Download Links funktionieren bei mir nicht.
    10 print "Hallo"
    20 goto 10
  - +3 replies
  - bianca
    
    2013-12-03 10:56
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2013-11-30T08:41:22 GwenDragon
    https://metacpan.org/pod/Win32API::Resources#Win32...
    
    Quote
    Database was generated on Tue, 03 Dec 2013 09:36:43 GMT
    Running install for module 'Win32API::Resources'
    Running make for B/BS/BSTURNER/Win32API-Resources-0.06.tar.gz
    Fetching with LWP:
    http://cpan.strawberryperl.com/authors/id/B/BS/BST...
    Fetching with LWP:
    http://cpan.strawberryperl.com/authors/id/B/BS/BST...
    Checksum for C:\strawberry\cpan\sources\authors\id\B\BS\BSTURNER\Win32API-Resources-0.06.tar.gz ok
    Scanning cache C:\strawberry\cpan\build for sizes
    ............................................................................DONE
    
    Package seems to come without Makefile.PL.
    (The test -f "C:\strawberry\cpan\build\BSTURNER-705TYk\Makefile.PL" returned false.)
    Writing one on our own (setting NAME to Win32APIResources)
    
    CPAN.pm: Building B/BS/BSTURNER/Win32API-Resources-0.06.tar.gz
    
    Writing Makefile for Win32APIResources
    Writing MYMETA.yml and MYMETA.json
    cp Resources.pm blib\lib\Resources.pm
    BSTURNER/Win32API-Resources-0.06.tar.gz
    C:\strawberry\c\bin\dmake.exe -- OK
    Running make test
    'No tests defined for Win32APIResources extension.'
    BSTURNER/Win32API-Resources-0.06.tar.gz
    C:\strawberry\c\bin\dmake.exe test -- OK
    Running make install
    Installing C:\strawberry\perl\site\lib\Resources.pm
    Appending installation info to C:\strawberry\perl\lib/perllocal.pod
    BSTURNER/Win32API-Resources-0.06.tar.gz
    C:\strawberry\c\bin\dmake.exe install UNINST=1 -- OK
    
    Testscript:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8
    
    #!/usr/bin/perl use strict; use warnings; use Win32API::Resources; use 5.010; my @List = Win32API::Resources::GetDrives('DRIVE_REMOVABLE'); say join("\n",@List);
    
    Quote
    Can't locate Win32API/Resources.pm in @INC (@INC contains: C:/strawberry/perl/site/lib C:/strawberry/perl/vendor/lib C:/strawberry/perl/lib .) at test_lw.pl line 4.
    BEGIN failed--compilation aborted at test_lw.pl line 4.
    
    Scheint was zu fehlen. Bekommt das jemand ans laufen?
    10 print "Hallo"
    20 goto 10
    - +2 replies
    - GwenDragon
      
      2013-12-03 14:13
      
      User since
      2005-01-17
      14816 Artikel
      Admin1
      
      Wohl zu alt. Entschuldige, habe nicht in die Source gesehen.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - bianca
        
        2013-12-03 14:15
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Kein Thema. Bin ja froh über jede Hilfe.
        Mit Windows stehen wir zwei ja doch meistens allein da :)
        10 print "Hallo"
        20 goto 10
  - gelöscht 2015-01-22 07:48
- +2 replies
- bianca
  
  2013-12-07 15:15
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Ich kann es nicht erklären aber heute wollte ich mal testen, wie sich das ganze verhält wenn das Script von einer lokalen Platte aus ausgeführt wird weil ich das in einem Thread von 2007 irgendwo gefunden hatte. Aber: Der Fehler kommt nicht mehr :)
  10 print "Hallo"
  20 goto 10
  - bianca
    
    2013-12-07 17:50
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Jetzt ist er doch wieder aufgetreten.
    Ist also nach wie vor ungelöst.
    
    Das Script lokal statt von einem Netzlaufwerk aufzurufen ändert nichts.
    10 print "Hallo"
    20 goto 10
- thomas38
  
  2014-12-28 00:40
  
  User since
  2012-11-04
  30 Artikel
  BenutzerIn
  
  Mit WMI kann man die existierenden Laufwerke (inkl. DVD u.ä.) und deren Buchstaben ermitteln.
  
  Ein Beispiel findet sich auf der Seite
  https://gallery.technet.microsoft.com/scriptcenter...
  
  Allerdings bekomme ich bei -d Y:/gibt/es/nicht kein Popup, wenn das angegebene Laufwerk nicht existiert.
  
  Hinweis: Das Verzeichnis kann ja auch vorhanden sein - nur die Zugriffsrechte (ggf. vom übergeordneten Ordner) erlauben nicht, dass man es sieht. :-(
  
  Getestete Umgebung:
  -----------------
  OS: Windows 7 (64 Bit)
  Perl:
  This is perl 5, version 14, subversion 1 (v5.14.1) built for MSWin32-x64-multi-thread
  Copyright 1987-2011, Larry Wall
  
  Binary build 1401 [294969] provided by ActiveState http://www.activestate.com/
  Built Jun 16 2011 17:28:49
  -----------------
- +2 replies
- Xavi
  
  2015-05-03 22:41
  User since
  2015-05-03
  1 Artikel
  BenutzerIn
  @bianca
  Versuchs mal so:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  use Win32::ErrorMode qw( :all ); my $error_mode = GetErrorMode(); SetErrorMode(SEM_FAILCRITICALERRORS | SEM_NOGPFAULTERRORBOX); system "program_that_would_normal_produce_an_error_dialog.exe"; #bzw hier dein Code für die Laufwerke
  
  http://search.cpan.org/~plicease/Win32-ErrorMode-0...
  oder alternativ:
  http://search.cpan.org/~chorny/Win32API-File-0.120...
  Last edited: 2015-05-04 08:38:26 +0200 (CEST)
  - bianca
    
    2015-05-08 06:42
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Ja, werde ich bei Gelegenheit mal testen. Danke dir
    10 print "Hallo"
    20 goto 10

View all threads created 2013-11-30 08:54.