Programmieren – die neusten Beiträge

Verwandte Themen
QQwertz123
18.08.2022, 10:43

Maximale Pfadlänge in Windows und VBA umgehen?

Hallo,

ich benutze folgenden Code in Excel VBA um mir Dateipfad und Dateiname eines Ordners und allen darin enthaltenen Unterordnern aufzulisten.
(Ihr könnt es testen, den Code einfach in ein Modul kopieren, "MainList" ausführen und einen Ordner eurer Wahl auswählen)

Ich habe jetzt das Problem, dass dieser Code alle Dateien überspringt, deren Pfadlänge über 255 Zeichen lang ist. Einige Dateien überschreiten nämlich die 255 Zeichen mit dem angehängten Dateinamen.
Sie liegen aber dennoch ab. Nur liest VBA diese nicht aus. Kann man da was dran machen? 

Sub MainList()
'Updateby Extendoffice
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Path
  Application.ActiveSheet.Cells(rowIndex, 2).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function
Computer, Windows, Microsoft, Datei, Microsoft Excel, programmieren, VBA
2 Antworten
PsySkill
13.08.2022, 00:18
Mit Bildern

SwiftUI Fehler lässt sich nicht finden, was ist falsch an meinem Code?

Also ich habe folgendes Problem:

Ich habe eine Liste mit den var's: ename, order, symbol und elne

Wenn ich folgenden Code eingebe funktioniert alles wunderbar:

*Siehe Bild, Code wegen Zeichenlänge nicht verfügbar.

Betroffene Zeilen: Zeile 30-39

Fehlermeldung:

The compiler is unable to type-check this expression in reasonable time; try breaking up the expression into distinct sub-expressions

Ich bin mir außerdem nicht sicher was diese Fehlermeldung bedeutet...

Und sobald ich ein paar Sachen in der List hinzufüge bekomme ich folgende Fehlermeldung:

Hier ist mein Code:

struct ChemieView: View{
    
    @State var showComposeMessageView: Bool = false
    @State private var searchText = ""
    
    private let elements = Elementis.Chemics
    
    
    var body: some View{
        NavigationView{
            
            List{
                
                ForEach(filteredElements) { elementis in
                    NavigationLink(elementis.ename, destination:
                                    List{
                        Text(elementis.ename)
                        HStack {
                            Text("Symbol:")
                            Text(elementis.symbol)
                        }
                        HStack {
                            Text("Ordnungszahl:")
                            Text(elementis.order)
                        }
                      HStack {
                         Text("Elektronegativitätswert:")
                        Text(elementis.elne)
                     }
                        HStack {
                            Text("Elektronegativitätswert:")
                            Text(elementis.amasse)
                            
                        }
                        
                        
                    }
                        .navigationTitle(Text(elementis.ename))
                    )
                    
                }
                
            }
Bild zum Beitrag
Apple, Computer, programmieren, Swift, Technologie, SwiftUI
2 Antworten
JuliMax158
10.08.2022, 14:50

Login verbessern mit AJAX/PHP?

Ich habe ein Login gebaut. Jenen sollen wir nun ausschließlich mit AJAX verbessern. (Wir dürfen dabei nicht sowas wie JQUERY verwenden. Das wissen fehlt uns aber dafür an meisten. Vielleicht kann jemand mir dabei helfen mein Login umzubauen und zu verstehen was ich mache.

Mein Login-Quelltext:

<?php
$pdo = new PDO('mysql:host=localhost;dbname=phptest', 'root', '');

if(isset($_GET['login'])) {
  $email = $_POST['Email'];
  $passwort = $_POST['Passwort'];

  $statement = $pdo->prepare("SELECT * FROM login WHERE Email = :Email");
  $result = $statement->execute(array('Email' => $email));
  $user = $statement->fetch();

  //Überprüfung des Passworts
  if ($user !== false && password_verify($passwort, $user['Passwort'])) {
    $_SESSION['userid'] = $user['ID'];
    die('Login erfolgreich. Weiter zu <a href="index.php?site=Startseite">internen Bereich</a>');
  } else {
    $errorMessage = "E-Mail oder Passwort war ungültig<br>";
  }

}
?>
<!DOCTYPE html>
<html>
<head>
  <title>Login</title>
</head>
<body>

<?php
if(isset($errorMessage)) {
  echo $errorMessage;
}
?>

<form action="Loginseite.php?login=1" method="post">
  E-Mail:<br>
  <input type="email" size="40" maxlength="250" name="Email" required><br><br>

  Dein Passwort:<br>
  <input type="password" size="40" maxlength="250" name="Passwort" required><br>

  <input type="submit" value="Login">
</form>
</body>
</html>
Computer, HTML, programmieren, JavaScript, AJAX, PHP, Webdesign
3 Antworten

Meistgelesene Beiträge zum Thema Programmieren
Mehr meistgelesene Fragen zu Programmieren